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O gravador 
National RQ-2222 
e o preferido 
pelos usuarios de micro- 
computadores. Ele grava e 
carrega programas com 
a mais alta fidelidade e com 



a maior economia. 



Porque tern um sistema de 
cabecote pr6prio para 
o uso em micros. O gravador 
National RQ-2222 tern um 
contador de fita que facilita 
a localizacao do programa a 
ser utilizado. E tern tambem 
um comando unico para 
gravacao tipo "Um Toque", 
muito mais pratico. Um 
gravador que vive na memo- 
ria do computador merece 
tambem viver na sua. 

Grave este nome: National 
RQ-2222. 
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adequagao dos equipamentos as reais necessidades dos usuarios — 
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cada vez mais uma relagab custo/beneficio realmente eficiente. 
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aplo desta tendencia e o desenvolvimento do CP 400 Color, que a 
agora tem um novo teclado profissional, possibilitando a exploracao 
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com seu desenvolvimento tecnologico — um novo padrao de mercado. 
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Seguindo a filosofia de dar suporte ao usuario, a GP tambem publica 
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Senac Informatics — Oferece os 
seguintes cursos para setembro e 
outubro: Introdiicao a Informati- 
ca: de 24 de setembro a 10 de ou- 
tubro, das 14 as 17 horas. Preco: 
Cr$ 396.000,00. Basic Sinclair: de 
23 de setembro a 1 1 de outubro. Pre- 
co: Cr$ 279.000,00. Basic I: de 14 
de setembro a 16 de novembro. Pre- 
co: Cr$ 692.000,00. Assembler Z-80: 
de 28 de setembro a 16 de novem- 
bro. Preco: Cr$ 544.000,00. Assem- 
bler 6502: de 28 de setembro a 16 de 
novembro. Preco: Cr$ 988.000,00. 
Supercalc II: de 21 de setembro a 26 
de outubro. Preco: Cr$ 741.000,00. 
Wordstar PC: de 25 de setembro a 4 
de outubro. Preco: Cr$ 1.235.000,00. 
Maiores informacoes: Rua Dr. Vila 
Nova, 228 — 5? andar — Sao Paulo 
— telefone: (011)256-5522. 



Informatica no Brasil 

Sou estudante de Comunicacao da 
Universidade Federal de Goias e gosta- 
ria de contar com a ajuda da Geracao 
Prologica em um trabalho que estou de- 
senvolvendo sobre a informatica no 
Brasil. Ja que esta revista e uma das 
mais atuais e apresenta otimas materias 
sobre o assunto, gostaria de uma ajuda 
para a realizacao de meu trabalho. Es- 
tou a procura de todo tipo de documen- 
tacao que trate sobre a informatica no 
Brasil, desde seu inicio ate os mais re- 
centes progressos, relacao de empresas, 
datas, orgaos, leis e mercados. Espero 
poder contar com sua ajuda. 

Adelcio A Ives da Silva Junior — 
Goiania — GO 

Caro amigo Adelcio, agradecemos os 
elogios e sugerimos que voce entre em 
contato com duas entidades muito im- 
portantes para a area de informatica: a 
Secretaria Especial de Informatica 



Indicadores de Qualidade em Com 
putacao para o Dialogo dos Usuarios 
com os Profissionais de Compula- 
cao — Curso dirigido a empresarios, 
executivos e profissionais liberais. 
Locais: Porto Alegre, dias 21 e 22 de 
novembro, e Belo Horizonte, dias 3 
e 4 de outubro. Maiores informa- 
coes: CQA — Computer Quality As- 
surance — Rua Tabapua, 627 — 
conjunto 62 — Sao Paulo — telefo- 
ne: (011) 280-5648 e 852-7513. 

Lotus 1-2-3 — Data: de 2 a 6 de outu- 
bro oude 11 a 13 de outubro. Local: 
Servimec — Rua Correa dos Santos, 
34 — Bom Retiro — Sao Paulo — 
telefone: (011)222-1511. 

dBase II — Data: de 1 6 a 20 de outu- 
bro oude 25 a 27 de outubro. Local: 



ins 



(SEI) e a Associacao Brasileira da In- 
diistria de Computadores e Perifericos 
(Abicomp), que poderao ajuda-lo na 
elaboracao de uma boa monografia so- 
bre o setor. Mas, para iniciar seu tra- 
balho, estamos enviando, via correio, 
varios documentos de seu interesse, co- 
mo: Catalogo da Indiistria Brasileira de 
Informatica, da Abicomp, e um relato- 
rio atual sobre a participacao no mer- 
cado e descricao de produtos do grupo 
Prologica. Sugerimos tambem que vo- 
ce leia o livro Computador Faz Politi- 
ca, de Gilberto Paim. Este livro pode 
ser encontrado na APEC — Associacao 
Promotora de Estudos de Economia — , 
Rua Sorocaba, 295 — CEP 22.271 — 
Rio de Janeiro. O endereco da SEI e: 
SAS — Quadra 5 — Lote 6 — Bloco H 
— Brasilia. Esperamos que estas infor- 
macoes sejam suficientes para o inicio 
de seu trabalho. 

ProCalc 

Gostaria de receber informacoes so- 
bre o programa ProCalc e onde posso 
encontrar programas para Vigas Con- 
tinuas e Lages. Out ra diivida: drive fa- 
ce dupla aceita programas para face 
simples? 
Paulo Roberto Lemos — Maceid — A L 
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Servimec — Rua Correa dos Santos, 
34 — Bom Retiro — Sao Paulo — 
telefone: (011)222-1511. 

dBase HI — Data: de 1 8 a 20 de ou- 
tubro ou de 23 a 27 de outubro. Lo- 
cal: Servimec — Rua Correa dos 
Santos, 34 — Bom Retiro — Sao 
Paulo — telefone: (011)222-1511. 

Analise Estruturada para Sistemas 
com Banco de Dados — Data: 15 a 
18 de outubro. Maiores informa- 
coes: SCI — Sistemas, Computacao 
e Informatica — Rua Jardim Bota- 
nico, 635 — 8? andar — Rio de Ja- 
neiro — telefone: (021) 294-7438 e 
Avenida Paulista, 949 — 11? andar 
— Sao Paulo — telefone: (Oil) 
289-0099. 



Caro Paulo, o ProCalc e um progra 
ma destinado a execucao de calculos so- 
bre um planilha eletronica, armazena- 
da na memoria do CP 500. Nesta pla- 
nilha, voce pode anotar valores (que po- 
dem ser variaveis, tais como: tempo, ta- 
xa, ou formulas que sao funcoes destas 
variaveis), ou mesmo rotulos que ser- 
vem para identificar os valores anota- 
dos. Voce utiliza o ProCalc exatamen- 
te como utilizaria uma calculadora, mas 
a planilha tern a vantagem de poder ar- 
mazenar todas as formulas utilizadas e, 
assim que uma variavel for alterada, to- 
dos os valores sao automaticamente re- 
calculados. 

Quanto aos programas para Vigas 
Continuas e Lages, voce podera adqui- 
ri-los nas seguintes software houses: 
Terracomp — Sistemas e Consultoria 
Rua da Assembleia, 93/801 — Rio de 
Janeiro — RJ. 
Eng Computadores Ltda. 
Avenida dos Tajuras, 406 — CEP 05670 
— Sao Paulo — SP — telefone: (01 1) 
813-7570. 

Siviero Engenharia de Projetos 
R. Sena Madureira, 5 1 3 — Sao Paulo — SP 



Informamos tambem que drive face 
dupla aceita programas para drive face 
simples. No entanto, o contrario nao e 
verdadeiro. 



Gerenciamento Profissional de Pro- 
cessamento de Dados — O Desajio 
dos Anos 80 — Data: de 2 a 4 de ou- 
tubro. Maiores informacoes: SCI — 
Sistemas, Computacao e Informati c 
ca — Rua Jardim Botanico, 635 — 
1 1 ? andar — Rio de Janeiro — tele- 
fone: (02 1 ) 294-9292 e Avenida Pau- 
lista, 949 — 1 1 ? andar — Sao Paulo 
— telefone: (011) 289-0099. 

Teleprocessamento em Redes de 
Computadores — Data: de 23 a 25 de 
outubro. Preco: 60 ORTN's. Maio- 
res informacoes: IBPI — Instituto 
Brasileiro de Pesquisa em Informati- 
ca — Rua Mena Barreto, 77 — Rio 
de Janeiro — telefone: (021) 286-6891 . 




Microprocessador 6809 



Quando comprei o meu CP 400 Co- 
lor, fiquei preocupado com a falta de 
programas existente no mercado. Mas, 
depois que i iz assinatura da revista Ge- 
racao Prologica, percebi o quanto este 
computador poderia ser litil nas minhas 
atividades, pois voces me mostraram, 
com otimas materias e "dicas", como 
melhor utilizar meu CP 400. Por isso, 
parabenizo a revista pelo apoio dado a 
nos, usuarios. Conforme indicacao da 
"Agenda" , estou fazendo um curso de 
informatica, por isso peco, mais uma 
vez, ajuda a voces: estou interessado em 
saber os modos de enderecamento do 
microprocessador 6809, e possivel? Ou- 
tra diivida: posso utilizar o CP 400 com 
a impressora P 500? 

Rodrigo Lambert Brasil — 
Rio de Janeiro — RJ 

Caro Rodrigo, ficamos contentes por 
nosso trabalho ter alcancado seu prin- 
cipal objetivo: informar e dar'suporte 
adequado a nossos leitores. Quanto aos 
modos de enderecamento do micropro- 
cessador 6809, eles podem ser: 



1 . Modo Intrinseco ou Inerente, onde o 
codigo da instrucao contem todas as in- 
formacoes necessarias a sua execucao. 

2. Modo Imediato, onde o enderego 
efetivo dos dados e aquele imediata- 
mente posterior ao codigo de operacao. 

3. Modo ExtendidoDireto, onde o en- 
dereco do dado e especificado pelos dois 
bytes subseqiientes ao codigo de ope- 
racao. 

4. Modo Extendidolndireto. Esse eum 
caso especial do enderecamento indexa- 
do. Exemplo: LDA [LI] 

LDX [$FFFE] 
STU [L2] 

5. Modo Direto. Esse modo e similar ao 
modo extendido, exceto que somente 
um byte do endereco segue o codigo de 
operacao. Esse byte especifica a meta- 
de menos significativa do enderecamen- 
to. Os outros oito bits do enderecamen- 
to sao conseguidos atraves do registra- 
dor DP. 

6. Modo de Enderecamento por Regis- 
trador. Alguns codigos de operacao sao 
seguidos por um byte que define um re- 
gistrador ou alguns registradores que se- 
rao usados pela instrucao. 

7. Modo Indexado. Emtodososende- 
recamentos indexados, um dos registra- 
dores de apontamento (X, Y, S, U e al- 
gumas vezes o proprio PC) e usado no 
calculo do endereco efetivo do ope- 
rando. 

Quanto a utilizacao do CP 400 com 
a impressora P 500, veja materia, neste 
niimero, na pagina 9. 



ERRATA. 



No programa "Pegalogo", publicado 
na Geracao Prologica n.° 11, as linhas 
770, 780, 790, 800 e 810 devem ser cor- 
rigidas para: 

770 PRINT@15*32,"CONTINUAR (S/N) 

? 

780 A$ = INKEY$:IF A$ = "" THEN GOTO 

780 
790 IF A$ - "N" THEN CLS: END 
800IFA$ = "S"THEN RUN 
810 GOTO 780 », 
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A CP Computadores Pessoais esta 
realizando uma revolucao na area de 
microcomputadores, visando a forma- 
cao de um novo padrao de mercado, 
sendo que sua principal arma e o CP 400 
Color II. Para tanto, esta sendo inexo- 
ravel no desenvolvimento desta maqui- 
na: novo teclado profissional, com capa- 
cidade superior a 10 milhoes de toques 
por tecla; microprocessador 6809E, 
com estrutura interna de 16 bits; con- 
solidacao mercadologica atraves do de- 
senvolvimento e recenseamento de mais 
de mil softwares; estrutura para supor- 
te a comunidade de usuarios e protoco- 
los de comunicacao para todos os ban- 
cos de dados. Estas possibilidades tec- 
nologicas resultam, principalmente, na 
democratizacao do computador: o CP 
400 Color II assume seu papel de do- 
mestico avancado e profissional univer- 
salizando a'informatica e transforman- 
do-a numa ferramenta extremamente 
poderosa, a servico de todos os indivi- 
duos, devido a sua versatil performan- 
ce modular e economica rela?ao cus- 
to/beneficio. 

Com um ano de lancamento e um 
parque superior a 25 mil maquinas insta- 
ladas, o CP 400 amadureceu e consoli- 
dou-se no mercado. Mas a importancia 
deste equipamento e que ele nao para 



em suas primeiras especificacoes: alem 
de acompanhar a tendencia profissio- 
nalizante do mercado (por isso, o novo 
teclado), a CP Computadores Pessoais 
tern se preocupado em capacitar esta 
maquina para uma efetiva informatiza- 
cao da sociedade. 

Hoje, com uma biblioteca disponivel 
em todo o Brasil de mais de mil softwa- 
res (entre utilitarios, aplicativos e jo- 
gos), o CP 400 possibilita sua utiliza- 



cao em qualquer setor, com programas 
que vao desde simuladores de voos ate 
planilhas de calculos de ultima gera- 
cao, com capacidade de gerar graficos 
(similares ao Lotus 1-2-3), podendo 
ainda rodar sistemas operacionais tao 
sofisticados em caracteristicas quanto 
o poderoso Unix. 

Mas isso so nao basta para a geracao 
das informacoes: a CP Computadores 
Pessoais tambem desenvolveu protoco- 



Caracteristicas tecnicas do CP 400 Color II 



• Microprocessador 6809E com estrutura interna de 16 bits 

• Freqiiencia de clock: 1.6 MHz 

• Memoria ROM: 16 Kbytes, com programa monitor e interpretador Basic 

• Memoria RAM total: 64 Kbytes 



Caracteristicas de Video 



Video Modo Texto: 16 linhas por 32 colunas (expansiveis por software) 
Video Modo Grafico: resolucao grafica de 49 152 pontos 



Recursos Sonoros 



O CP 400 Color II possui instrucoes especificas que otimizam a utilizacao 
destes recursos, sendo que o som e transmitido atraves de RF para a TV. 
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lo de comunicacao para acesso ao ban- 
co de dados Cirandao, sendo que o do 
Videotexto estara disponivel para os 
usuarios ate o final de 1985. 

Apesar de todo desenvolvimen- 
to tecnologico, o CP 400 Color II nao 
perdeu o charme do design moderno, 
criado por Luciano Devia. Ao contra- 
rio: o teclado ganhou sobriedade pos- 
modernista com suas novas teclas pro- 
fissionais. 



A CP Computadores Pessoais realizou urn recenseamento, 
em todo o Brasil, selecionando mais de mil softwares 
compativeis com o CP 400 Color II. Esta selecao sera 

distribuida, em breve, para todos os usuarios nos 

revendedores CPs. Neste numero, a Geragao Prologica 

publica listagem de alguns softwares profissionais e o 

endereco das software houses responsaveis: 



Programs Software House 



Programs 



Software House 



MalaDireta(16 

Kb — fita) 

Banco de Da- 
dos para Pro- 
fessores(32Kb 

— disco) 

Sistema de Con- 
troledeClinica 
(32 Kb — disco 
e fita) .... 
Processador de 
Textos com 
AcentuacSo 
em Portugues 

(fita) 

Agenda Finan- 
ceira (32 Kb — 
disco e fita) ... 
Imposto de Ren- 
da (32 Kb— dis- 
co) 

Processamento 
de Textos para 
OS-9 DOS (64 
Kb — disco) ... 
Banco de Da- 
dos (32 Kb — 

disco) 

PlanilhaEletrd- 
nica (disco) .... 
Controle de 
Conta Banca- 
ria 



Medical Color Soft 



Medical Color Soft 



... Medical Color Soft 



Peek & Poke 
Medical Color Soft 
Medical Color Soft 

Medical Color Soft 

Medical Color Soft 
Micromaq 

Computer House 



Contas a Pa- 

gar/Receber ... Planecon Informatica 
Editor de Tex- 
tos Kristian Eletronica 

PlanilhadeCal- 

culo Peek & Poke 



Enderegos das Software Houses 



Computer House — Avenida Andra- 
de Neves, 1254 — Campinas — SP 

— telefone: (0192) 8-0822 
Kristian Eletronica — RuaGonzaga 
Bastos, 112 — Rio de Janeiro — RJ 

— telefone: (021) 268-8249 
Logaritmo Services — RuaDr.Afon- 
so Pena, 219 — Porto Alegre — RS 

— telefone: (0512) 23-2655 
Medical Color Soft — Rua Cicero 
Goes Monteiro, 15 — Rio de Janeiro 

— RJ — telefone: (021) 266-5995 
Microideia — Avenida Passos, 101 
— 11.° andar— Rio de Janeiro — RJ 

— telefone: (021) 233-3617 
Micromaq — RuaSetedeSetembro, 
92 — loja 106 — Rio de Janeiro — RJ 

— telefone: (021) 222-6088 

Peek & Poke — Avenida Brigadeiro 

Faria Lima, 1664 — conj. 1 101 — Sao 

Paulo — SP — telefone: (011) 

813-3277 

Planecon Informatica — Avenida 

Agua Fria, 925 — Sao Paulo — SP — 

telefone: (011) 204-2777 






Entradas e Saidas 



• Duas saidas para joysticks analogicos 

• Uma porta serial, atraves de plugue DIN, para conexao de impressoras, 
modems, ou qualquer outro periferico que necessite este tipo de sinal 

• Uma porta para gravador cassete com controle automatico de motor 

• Uma saida, atraves de plugue DIN, para monitor de video composto P&B 
ou colorido 

• Entrada e saida de dados (DATA BUS), para cartuchos e controlador de 
disquetes 

• Uma saida de RF com Audio para ligacao do CP 400 Color II a um apare- 
lho de TV P&B ou colorido 

• Chave de selecao de canais de RF (canal 3 ou 4) 

• Fonte de alimentacao 1 10/220 V 



Caractensticas do Teclado 



Teclado profissional com 59 teclas tipo ASCII, com capacidade superior a 
10 milhoes de toques por tecla. 
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CLUBE CP's esta superando todas as expectativas 
iniciais, na medida em que esta gerando um grande ~ 

intercambio de informapdes entre os usuarios. No entantoT 
o mais importante neste intercambio e o nivel das ~ 

in formacoes: cada vez mats os usuarios de computadores 
pessoais estao indo alem do inevitavel, solucionando~ 



probiemas e selecionando recursos para necessidades especiticas. 

Neste numero, publicamos as inforrnagoes e programas 
enviados por Joao Dreys, engenheiro eletricista do Rio de Janeiro. 



TRAQADO GRAFICO 



O tracado de curvas que podem ser 
representadas por equates caracterfs- 
ticas de suas formas e uma das mais sim- 
ples entre as miiltiplas aplicacoes do mi- 
crocomputador na area cientifica. Mas, 
apesar da aparente complexidade, o tra- 
cado de curvas no CP 400 e muito sim- 
ples, tornando-se mesmo generica sua 
metodologia. 

No Quadro I, acham-se relacionados 
34 programas para tracado de curvas, 
com o respectivo ' 'codigo ' ' (sugerido no 
caso de gravacao em fita, alem das res- 
pectivas equacoes). Deve ser observa- 
do que, ao serem lancadas as equa?6es 
das curvas nos respectivos programas, 
ja foram atribuidos valores numericos 
aos diversos parametros, os quais tor- 
nam possivel o registro grafico de cada 
curva na formatacao da tela, segundo 
a definicao grafica selecionada. 

No entanto, a partir das equacoes 
apresentadas, podemos expandir e de- 
senvolver quaisquer curvas, modifican- 
do em geral os diversos parametros e 
nao se surpreendendo, contudo, se a 
maquina emitir "mensagem de erro", 



DE CURVAS 
NO CP 400 



coisa que fatalmente acontecera se os 
valores numericos resultantes se reve- 
larem incompativeis com a formatagao 
da tela. 

MONTAGEM DOS 
PROGRAMAS 

Na totalidade dos programas apre- 
sentados, foi obedecida a sequencia 
abaixo: 

— Dimensionamento dos vetores (ar- 
rays) (DIM). 

— Definicao do modo grafico e cor 
(PMODE, PCLS, SCREEN). 

— Lancamento dos eixos H e V, atra- 
ves de impressao seqiiencial (FOR 
V= ... FORH = ...). 



— Definicao do campo da variavel in- 
dependente (X= ...). 

— Impressao grafica seqiiencial (PSET 
(H, V)). 

UTILIZAQAO DOS 
PROGRAMAS 

Os 34 programas estao selecionados 
em 4 grupos, que apresentam entre si 
uma analogia basica que permite o 
aproveitamento da maioria de suas 
linhas. 

Assim, ao ser introduzida em cada 
grupo sua parte comum, denominada 
"Estrutura Basica" (EB), representa- 
da pelos programas "EB-1 ", "EB-2" , 
"EB-3" e "EB-4", a parte especifica do 
programa sera realizada pelo teclado 
com um minimo de trabalho, como po- 
de ser observado analisando-se o Qua- 
dro II. 

Caso o leitor possua um gravador, e 
conveniente salvar cada programa 
("CSAVE" , "ENTER"), a fim de pos- 
teriormente desenvolver suas proprias 

GERACAO PROLOGICA 






curvas a partir dos programas basicos 
ora apresentados. 

Nesta ocasiao, observamos que a tro- 
ca das programacoes EB entre si e fa- 
cilmente realizada com o auxilio das re- 
tinas "DEL", "EDIT" e "RENUM" 
sem necessidade de reescrever toda a 
programacao. 

Uma vez escolhido o grupo de curvas 
desejado, e introduzida sua parte co- 
mum "EB", bastara voce completar o 
programa especifico na forma apresen- 
tada no Quadro III e ver no video a ge- 
ra?ao ponto a ponto da funcao de- 
sejada. 

MENSAGENSDEERRO 

Os 34 programas apresentados foram 
testados e devidamente aperfeicoados 
ate o ponto em que a qualidade apura- 
da permitiu sua edicao. 

Ao serem desenvolvidos novos pro- 
gramas originais ou derivados, podem 
ser esperadas ocasionais "mensagens 
de erro", que devem ser localizadas nos 
seguintes pontos: 
— Geracao de imagem maior que o 
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QUADRO 1 


CODIGO 


CURVA 


FORMULA 


100 


RETA y 


= ax + b 




110 


ClRCULO > 


2 + y 2 = R 2 




120 


ELIPSE > 


2 /a a + y 2 /b 2 = 1 




130 


PARABOLA - y 


= ax 2 + b 




140 


HIPERBOLE > 


2 /a 2 - y 2 /b 2 = 1 




150 


SERPENTINA * 


2 y + b*y - a 2 x = 




160 


QUARTICA DE LAME > 


4 xy 4 = a 4 




170 


CUBICA DE AGNESE > 


2 y + 4a 2 y - 8a 3 = 




180 


CIS6IDE DE DIOCLES y 


2 = x 3 /(2a - x) 




190 


TRISSETRIZ DE y 
MAC-LAURIN 


2 = x 2 (3a - x)/(a + x) 




200 


CICL6IDE 


x = a(T - senT) 
,y = a(1 - cosT) 




210 


EPICICLOIDE 


x = (a + b) cos T - b cos ((a + 


b)/b) T 






> y = (a + b) sen T - b sen ((a + 


b)/b) T 


220 


HIPOCICL6IDE 


' x = (a - b) cos T + b cos ((a - 
„ y = (a - b) sen T - b sen ((a - 


b)/b) T 






b)/b) T 


230 


ESPIRAL DE R = A/3,14 






,ARQUIMEDES 






240 


CARDlblDE R = a(1 + sen A) 




250 


CARACOL DE PASCAL R = a cos A + b 




260 


CONCH6IDE DE 1 
NIC6MEDES 


3 = a sec A - b 




270 


L1TUUS 


=i 2 A - a 2 




280 


LEMINISCATA DE 
BERNUILLI 


I 2 = 2a 2 cos2A 




290 


CRUCIFORME 


3 = 2a cosec 2A 




300 


STROF6IDE 


3 = a(sec A ± tg A) 




310 


BIFOLIUM 


3 - a sen T cos 2 T/(sen 3 T + cos 3 


T) 


320 


FOLIUM DE DESCARTES 


R = a sen T cos T 




330 


ROSACEA DE 3 FOLHAS 


3 = a sen 3A 




340 


ROSACEA DE 4 FOLHAS 


R = a sen 2A 




350 


ROSACEA DE 6 FOLHAS 


R = a cos 3A/2 




360 


ROSACEA DE 8 FOLHAS 


R = a sen 4A 




370 


ROSACEA DE 2 X 2 


R = a cos (b sen A) 




380 


ROSACEA DE4X2 


R = a cos (b sen 2A) 




390 


ROSACEA DE4X3 


R = a cos A sen A 




400 


ESTRELA DE 12 PONTAS 


R = 6 cos (sen 6A) 




410 


ESTRELA DE 10 PONTAS 


R = 5 cos (sen 5A) 




420 


ESTRELA DE 8 PONTAS 


R = 4 cos (sen 4A) 




430 


ESTRELA DE 6 PONTAS 


R = 3 cos (sen 3A) 





campo da tela, resultante de valores 
de H e V superiores a definicao 256 
e 192, permitidas para o CP 400 no 
modo de alta definicao grafica. 

— Ocorrencia de "Divisoes por zero" 
(JO), resultante de valores atribui- 
dos a variavel que efetivam um de- 
nominador nulo. 

DEPURAQAO 

De modo geral, eventuais erros sao 
facilmente localizados atraves da reti- 
na apresentada a seguir: 

— Edicao de instrucao auxiliar man- 
dando imprimir dentro do laco da 
variavel principal seu valor numeri- 
co passo a passo. Ex.: "For A = 
TO 6,28 STEP. 5" — Editar linha 
auxiliar "PRINTA". 



— Com o procedimento anterior, a ma- 
quina fara a impressao dos valores 
de A e, ao se dar o "Estouro da Te- 
la", o video fara a impressao do 
erro. 

— Nesta oportunidade, ficara conhe- 
cido o valor da variavel que produ- 
ziuo "Estouro da Tela", tornando- 
se simples contornar o problema por 
artificios computacionais de uso 
comum. 

MODO GRAFICO 

Para ilustrar as aplicacoes dos diver- 
sos recursos graficos do CP 400, foram 
adotados os modos 1 , 2, 3 ou 4, em di- 
versas cores, dependendo da necessida- 
de de maior ou menor definicao grafi- 
ca de cada curva apresentada. 




QUADRO II 
1 1 I 1 


20 


DIM V (200) 


DIM V (200) 


Dim v (200) 


DIM (200) 


30 


DIM H (257) 


DIM H (257) 


DIM H (257) 


DIM H (257) 


40 


PMODE 3,1 


PMODE 3,1 


PMODE 4,1 


PMODE 4,1 


50 


PCLS 


PCLS 


PCLS 


PCLS 


60 


SCREEN 1,1 


SCREEN 1,1 


SCREEN 1,1 


SCREEN 1,1 


70 


FOR H = TO 257 


FOR H = TO 257 


FOR H = TO 257 




80 


PSET (H, 100, 8) 


PSET (H, 100, 8) 


PSET (H, 100, 1) 




90 


NEXTH 


NEXTH 


NEXTH 




100 


FOR V = TO 200 


FOR V = TO 200 


FOR V = TO 200 




110 


PSET (128, V, 8) 


PSET (0, V, 8) 


PSET (128, V, 1) 




120 


NEXTV 


NEXTV 


NEXTV 





OBS.: ESTAS ESTRUTURAS BASICAS APLICAM-SE AOS SEGUINTES PROGRAMAS 



ESTRUTURA EB-t 


ESTRUTURA EB-2 


ESTRUTURA EB-3 


ESTRUTURA EB-4 


Programas: 


Prog 


ama: 






1 00 - 1 1 - 1 20 - 


200 


290 ■ 320 - 


220 • 330 • 340 • 


I 160 ■ 170 - 180 ■ 






380 - 390 ■ 400 • 


I 240 - 250 ■ 260 ■ 


Hi^ 1 1 




10 REM RETA 

20 DIM V(200) 

30 DIM H(257) 

40 PMODE 1,1 

50 POLS 

60 SCREEN 1,1 

70 FOR H=0TO257 

80 PSET(H, 100,8) 

90 NEXT H 

100 FOR V = TO 200 

110PSET(128,V,8) 

120 NEXT V 

130 FOR X= -100 TO 60 

140 Y = X + 30 

150V = 100-Y 

160H = 128+X 

170 PSET(H,V,8) 

180 NEXT X 

190 GOTO 190 



EB2 - 200 



10 REM-CICLOIDE 

20 DIM V(200) 

30 DIM H(257) 

40 PMODE 1,1 

50 PCLS 

60 SCREEN 1,1 

70 FOR H = 0TO257 

80 PSET(H, 100,8) 

90 NEXT H 

100 FOR V = TO 200 

110PSET(0,V,8) 

120 NEXT V 

130 FOR T = TO 6.28 STEP .05 

140M=SIN(T) 

150X = 40'(T— M) 

160Y = 40*(1-COS(T)) 

170 V = 100— Y 

180 H=X 

190 PSET(H,V,8) 

200 NEXT T 

210 GOTO 210 



10 REM-CRUCIFORME 

20 DIM V(200) 

30 DIM H(257) 

40 PMODE 4,1 

50 PCLS 

60 SCREEN 1,1 

70 FO=l H = TO 257 

80 PSET(H, 100, 1) 

90 NEXTH 

100 FOR V = 0TO 200 

110PSET(128,V,1) 

120 NEXT V 

130 FOR A = TO 6.28 STEP .025 

140IF A>0 AND A<.05 THEN GOTO 260 

150 IF A>.735 AND A<.835 THEN GOTO 260 

160 IF A>1.45 AND A<1.67THEN GOTO 260 

170 IF A>2.305 AND A<2.405 THEN GOTO 260 

180 IF A>3.00 AND A<3.24 THEN GOTO 260 

190 IF A>3.875 AND A<3.975 THEN GOTO 260 

200 IF A>4.6 AND A<4.76 THEN GOTO 260 

210 IF A>5.445 AND A<5.545 THEN GOTO 260 

220 IF A>6.175 AND A<6.28 THEN GOTO 260 

230 IF SIN(2*A) = THEN GOTO 260 

240R = 15/SIN(2'A) 

250PSET((128+ R*COS(A)), (100 + R*SIN (A)),1) 

260 NEXT A 

270 GOTO 270 . 



10 REM-HIPOCICLOIDE 

20 DIM V(200) 

30 DIM H(257) 

40 PMODE 4,1 

50 PCLS 

60 SCREEN 1,1 

70 FOR T = TO 12.56 STEP .05 

80 X = 30*COS(T)+20-COS(1.5*T) 

90 Y = 30*SIN(T)— 20*SIN(1.5*T) 

100 V = 100— Y 

110H = 128 + X 

120PSET(H,V,1) 

■130 NEXT T 

140 GOTO 140 
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100 



10 

130 a 1901 



190 



10 

130 a 220 



310 



10 

130 a 170 
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70 a 110 
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230 
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130 a 170 



290 



130 a 270 



70 a 110 



140 



250 



130 a 230 



130 a 170 



220 



70 a 140 



70 a 110 



160 



180 



270 



300 



130 a 180 



10 

130 a 240 



340 



360 



10 

70 a 110 

10 

70 a 110 



130 a 170 
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1. PROCESS ADOR DE PALAVRAS 

Programa aplicativo, desenvolvido para o CP 500 ou CP 300, 
versao fita cassete, que transforma seu computador pessoal 
em um eficiente editor de textos 2, 3, 4 e 5 



2. LISTAGEM RAPIDA 

Este programa utilitario permite ao CP 400 Color dispor de 
recursos para uma listagem super-rapida 5e6 



3. 80 Kb PARA O CP 400 COLOR 

Programa utilitario para voce aumentar a memoria disponi- 

vel de seu computador 6 e 7 



4. ATERRISSAGEM LUNAR 

Continuacao do divertido jogo para o CP 200. A primeira par- 
te da listagem em BASIC foi publicada na Geracao Prologica 
n? 13 7 e 



5. TRINOMIO DO 2? GRAU 

Programa educacional desenvolvido para o CP 200 8 



APLICATIVO/PROCESSADOR DE PALAVRAS 



Nao jogue fora suas ideias 



CP 500 ou CP 300 — versao fita cassete — 16 Kb RAM 



Voce elabora um texto. Depois de 
pronto, descobre que faltam umas coi- 
sinhas aqui, outras acola e que aquele 
segundo paragrafo jamais podera ficar 
naquela carta. Nessas e em outras voce 
ja percebeu quanto papel gastou? E a 
paciencia, para onde foi? Em muitos ca- 
sos, para a lata de lixo, junto com sua 
melhor ideia. 

Mas se voce e um usuario do CP 300 
ou CP 500, versao fita cassete, a partir 
de agora nao precisa mais se preocupar: 
o seu computador pessoal vai substituir 
com vantagem a tradicional maquina de 
escrever, tanto na eficiencia como no 
tempo gasto para a elaboracao de qual- 
quer tipo de texto, com varias opcoes 
para diagramacao. E so operar o pro- 
grama Processador de Palavras. Explo- 
re melhor as possibilidades deste pro- 
grama seguindo corretamente as instru- 
coes abaixo. 

No inicio da execucao do Processa- 
dor de Palavras sera solicitado o co- 
mando desejado. Digite HELP ou so- 
mente a letra H para conhecer todos os 



outros comandos disponiveis do pro- 
grama. Para utilizar qualquer um deles, 
basta digitar o nome completo do co- 
mando ou mesmo a sua letra correspon- 
dente. Os comandos disponiveis sao: 

1. ADD ou A — Deve ser utilizado 
imediatamente apos o comando 
HELP. Permite a montagem do 
texto, numerando todas as linhas, 
a partir de zero. 

2. BLANCK ou B — Este comando 
retira todas as linhas em branco que 
estiverem no seu texto e renumera 
as linhas escritas a partir de zero. 

3. DELETE ou D — Permite deletar 
. uma ou mais linhas do texto. Para 

tanto, voce deve dar o mimero da 
primeira e ultima linha. Para reor- 
ganizar o texto, utilize o comando 
BLANCK. 

4. EDIT ou E — Este comando edita 
uma linha especifica do programa, 
ou seja, altera, deleta, insere e cor- 
rige a linha desejada. 

5. FORMATS ouF — Formatao tex- 
to para saida na tela ou impressora. 



6. HELP ou H — Relaciona os co- 
mandos disponiveis. 

7. INSERT ou I — Insere uma linha 
qualquer no texto. Nao e possivel 
esta operacao no final do texto. Pa- 
ra tanto, utilize o comando ADD. 

8. JUSTIFY ou J — Confirmacao do 
texto. 

9. KILL ou K — Elimina o texto sem 
sair do programa. 

10. LOAD ou L — Leitura dos dados 
gravados em fita cassete. 

11. MOVE ou M — Permite a movi- 
mentacao de linhas ou blocos de li- 
nhas para outro local do texto. 

12. PRINT ou P — Impressao. 

13. REPLAN CE ou R — Permite a al- 
teracao de toda uma linha do texto. 

14. SAVE ou S — Gravacao do texto 
em fita cassete. 

15. VIDEO ouV — Neste comando se- 
ra dada a saida de seu texto para o 
video, conforme formatacao elabo- 
rada no comando F. 

16. EXIT ou X — Elimina o texto e sai 
do programa. 



10 ' **************************** 

20 '* PRQCESSADQR DE PRLRVRRS * 
30 '* COMP- PE3S0AIS * 
40 '* CP-300/500 * 

50 ' **************************** 
60 CLS s PRINTTRB ( 15 ) "PROCESSADOR DE 

PRLRVRRS " 
70 CLERR 7400:DEFINT R~Z: NL=120:DI 
M fl« ( NL) , X* ( 3 ) , S ( 20 ) , T ( 20 ) 
SO B$=CHR$ ( 30 ) : C$=CHR$ ( 143 ) : F$="## 
# " :N$="S" :PN$="N" :P1*="S" 
90 s*^ " " : H$~S$ : LR=-~1 :' P=l ! FP=1 : PL= 
15 : LL-60 : LM=10 : LJ=32 : OUT 254 , 1 
100 L=Lfl : IT=0 s R=0 a |j= " " : PRINT : 1NPU 
T"EN'TRE COM COMRMDO" : R* : IF fl$="" 

G0TO12O 
HO fl=RSC(R*)-64:IF fl>0 ON R GOTO 



1 30 , 


520 , 


120 ,55 


.") , 5S0 


, 10 


10 


,120 


,111C 


,1140 , 


1130 ,130 


, 


13 


io ,;!-§ 


00 5 12 


,120 


, 1560 , 1 


20 


« 


1670 , 


1690 , 


120 ,12 


, 1SS0 


,12 





, 202 C 












120 N 


INT"** 


ERRO DE 


ENTRRDR 


**" 


!G 


0T0100 













130 CLS:D=0:N*="S" :IF LR<0 THEN L= 

OsGOTO 170 s 

140 IF NL=LR+1 THEN 250 sELSE IF 

DFL+12 THEN B=L-12:ELSE B=FL 

150 FOR I=B TO L:X=LEN<R*(I)):D=D+- 

(X+3)/64 

160 GOSUB 1960 :NEXT I:L=L+1 

170 C=(L~FL+D>*64:IF OS96 PRINT :P 

RINT:C=396 

ISO PRINTSC, USING F$ 5 L 5 rPRINTR* ( L ) 

| : P=LEN ( fl* ( L ) ) +1 : C=C+P+3 : K=L+1 

190 PRINT@C , C$ 5 : -R*=INKEY* : PRINTSC , 

St;: IF R$="" GOTO 190 

200 GOSUB 330 :C)N A™7 GOTO 400 , 

450 , 350 

:E 
:ELSE IF R=3 



210 IF R=13 THEN fl*=S* : G0T0250 



:ELSE IF R= 



LSE IF R=Z4 THEN 420 

1 GOTO 500 

220 IF R=25 THEM 470 

26 THEN 370 

230 IF R^?6 IF LR<L THEN LR=L:GOTO 

100 s ELSE 100 
240 PRINT@C , R* J : A* < L ) =R*< L ) +fl$ : IF 
P<=LL THEN P=P+l:C=C+l:G0T0190 
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250 IF R GOTO 100 :ELSE IF NL<=K 

PRINT:PRINT"flRQUIVO CHEIO" :Lfl=NL--l 

: GOTO 100 

260 IF LEN(fl*(K)) THEN L=K: GOSUB 1 

150 

270 IF K>LR THEM Lfl=K 

2S0 IF ,fl*=S* GOTO 320 

290 FOR M=LL+1 TO 2 STEP -l:A*=MID 

*<A*(L> ,M,1) :IF A* OS* NEXT M:GOTO 

320 

300 A*(K>=RIGHT*(A*<L> ,LL-M+1) :R*< 

L) =LEFT* ( R* ( L) , M-l ) 

310 PRINT9C-LL+M-1 , B* ; : L=K : G0T0170 

320 fl* < L > =LEFT* ( R* ( L > , LL ) : L=K : GOTO 

170 
330 R=flSC(R*) :IF R>64 AND fl<91 THE 
U fl=R+U:ELSE IF fl>96 RND fl<123THEN 

A=A-U 
340 A*=CHR* ( fl ) : RETURN 
350 IF P>LL GOTO 250 :: 
360 PRINT@C,CHR*<92) ; :A* (L )-fl* (L ) + 
CHR* < 17 ) : R*=3* : G0T0250 
370 IF P>LL GOTO 250 : : 
3S0 C=( L-FL+D )*64+4: IF O900 THEN 
C=900 
390 GOSUB 970 :P=1 :R*=S*:G0T0250 

400 IF P=l G0T0190 : : 

410 C=C-i:PRINT@C,B*; : P=P-1 : A* (L ) = 

LEFT* ( fl* ( L) , P-l ) : GOT 01 90 

420 IF P=l G0T0190 : : 

430 fl* ( L) = " " : P=l : C= ( L-FL+D ) *64+4 : I 

F O900 THEN 0=900 

440 PRINT@C,B*; :G0T0190 

450 IF P>LL-6 GOTO 190 :: 

460 R* ( L) =A* ( L ) + STRING* < 5 , S* ) : C=C+ 

5:P=P+5:G0T0190 

470 IF P>LL GOTO 250 :: 

480 C=( L-FL+D >*64+4: IF O900 THEN 

0=900 

490 G0SUB990 :P=1 :fl*=S* :G0T0250 

500 IF P>L GOTO 250 :: 

510 PRINTSC , CHR* ( 93 ) ; : fl* ( L) =fl* ( L ) + 

CHR* ( 20 ) s fl*=S* :.G0T0250 

520 CLS:PRINT"DELETANDO LINHRS EM 

BRONCO": FOR J=LR TO STEP -is: 

530 IF R*(J)="" 

)=fl*.<I + l) sNEXTI 

540 NEXT J:IF R 

SSO 

550 INPUT "PRIME 

TRR";F:IF F<0 THEN : : 

560 INPUT"ULTIMR LINHfl 



FOR I=J TO Lfl:fl*(I 
fl*CLfl)="":Lfl=LR-l 
THEN RETURN: ELSE 1 

LINHfl PflRfl DELE 



PRRR DELETR 



R"5Z:IF Z>LR THEN 2=LR 

570 IF F>2 THEN 120 :ELSE FOR I=F 

TO 2:fl*(I) = " "sNEXT Is GOTO 1830 
530 INPUT "QURL R LINHR DE EDICRO" 



;L:IF L<0 OR L>LR OR R*(L)="" GOTO 

120 ■ : : 
590 C=4:P=i:X*(0)=fl*(L) :N*="S" 
6O0 CLS:I=L: GOSUB 1960 :N=1:Q*="" 
610 GOSUB 700 : IF R>47 AND fl<58 T 
HEN Q*=Q*+R*:N=VRL<Q*> :G0TQ610 . 
620 N=0:IF fl=S THEN Y=- is GOSUB 730 
■■ELSE IF R=9 OR R=U THEN Y=l:GOS 
LIB 730 

630 IF fl=97 THEN R* (L ) =X$ ( 0) : G0T05 
90 : : 

640 IF LEN(fl*(L) ) >=LL GOTO 660 
650 IF '0=25 GOSUB 990 sELSE IF fl= 
26 GOSUB 970 

660 IF A>93 ON H-9S GOSUB 750 ,79 
,2010 ,2010 ,2010 ,810 ,320 



670 IF fl=115 GOSUB 910 



ELSE IF fl 



=120 GOSUB 960 :ELSE IF 0=103 GOT 

590 

680 IF M=l THEN N=l :Q*=" " :G0T0610 

:ELSE IF R PRINTS320, ? SELSE600 
690 IF LL<X PRINT "LINHfl ":L; "TETTsX 
;"CRRflCTERES":GOTO 100 sELSE 1330 

700 X*=MID* ( fi* < L ) , P , 1 )' 
710 PRINTSC , C* .5 s R*=INKEY* : PRINTSC , 
X*5 s IF fl*="" GOTO 710 
720 GOSUB 330 : X=LEN(fl*<L) ) s IE R= 
13 OR R=96 THEN R=l : RETURN s ELSE RE 
TURN 

730 N=l:FOR 1=1 TO N:P=P+Y:IF P>X 
THEN P=X: RETURN 

740 IF P<1 THEN P=l : RETURN: ELSE C= 
C+Y sNEXT I: RETURN 

750 Q=P 5 D=C s FOR 1 = 1 TO Ns GOSUB 700 
:IF R OR R=27 THEN P=Q: C=D : RETUR 
N: : 

760 PRINTSCR*: : GOSUB 890 :p=P+i: 
GOSUB 900 :R*(L)=L*+R*+R* 
770 fl=U:C=C+i:lF P<=X NEXT I 
730 P=Q : C=D : RETURN 
790 IF P+N-DX THEN N=X-P+i:s 
300 GOSUB 390 : Q=P:P=P+N: GOSUB 90 
s fl* ( L) =L*+R* : P=Q : RETURN 
810 GOSUB 890 : fl* (L ) =L*+S*: PRINTS 
C,B*: : 

820 GOSUB 700 : IF R OR fl=27 RETUR 
N: : 

330 IF fl=10 THEN fl* (L ) =fl* ( L ) +CHR* ( 
17) :R=i: RETURN 

840 IF fl=31 THEN R* (L ) =fi* ( L ) +CHR* ( 
20) :R=l: RETURN 

350 PRINT@C,R*5 :IF fl=3 THEN Y=- US 
OSUB 730 SG0T0320 

860 IF R=9 THEN Y=l: GOSUB 730 : GO 
TO 820 SELSE IF P>X THEN X=P 
370 GOSUB 890 s GOSUB 900 :R*(L)= 
L*.+fl*+R* s PRINT@C , B* ; fl*+R* ■ 
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fi*udi 



SSO C=C+1 : P=p+i. : G0T0S20 

390 L*="":IF P<2 RETURN: ELSE L*=LE 

FT* ( fl* (L) ,P-1) : RETURN 

900 R*=" " : IF P > X RETURN : ELSE : R*=RI 

GHT* < fl* ( L > , X-P+l ) : RETURN 

910 GOSUB 700 : Q=P:D=C: : 

920 FOR 1=1 TO N:F=0:FOR J=Q+1 TO 

X:D=D+1 

930 IF MID*<R*(L>,J,1)=R* THEN F=l 

:Q=J:J=X 

940 NEXT J : NEXT I s IF F THEN P=Q:C= 

D 

950 fl=U: RETURN 

960 A* < L > =A* ( L ) +S* : P=X + 1 : C=P+3 : GOT 

Q S20 : : 

970 A* ( L ) =STRING* ( ( LL-LEN (-A* < L ) > )'/ 

2 . 32 ) +A* ( L ) +CHR* ( 20 ) : : 

9S0 PRINTSC , B* ; A* ( L ) ; CHR* ( 93 ) ; : RET 

URN 

990 fl*(L)=STRING*< LL-LEN (R*(L) ) ,32 

)+R*<L> : 

1000 PRINTSC , B* ; R* ( L > ; : RETURN 

1010 CLS: PRINT "RTURL TRMRNHO DR LI 

NHR----"5LL, !INPUT"N0V0";LL: : 

1020 PRINT "ESPRCOS ENTRE RS LINHfl 

S=" ;S> : INPUT " NO VO=";S 

1030 PRINT"LINHfl3 NUMERflDR5= '";N* 

;'"",.■ INPUT "NOVO (S/N)";N* 

1040 PRINT"NUMERO DR PRIMEIRR LINH 

fl= " jFL, : INPUT "NOVO=";FL 

1050 PRINT "RTURL MRRGEM ESQUERDR=" 

5 LM,: INPUT "N0v6=";LM 

1060 PRINT "RTURL TRMRNHO DR PRG.IN 

R=";PL, -'INPUT "NOVO=";PL 

1070 PRINT" IMPRESSRO COM PRGINRS= 

"•;PN*+" '" ,: INPUT "NOVO (S/N) H ;PN* 

10S0 PRINT"MUMERO DR PRIMEIRR PRGI 

NR= "jFP, :INPUT"N0V0="5FP 

1090 PRINT "SEMPRE NUMERRR PRGINRS 

= '" sPi*s" '" ,: INPUT "NOVO (S/N)";P 

1* 

1100 PRINT"TITULO RTURL= '" ;H*i"' 

" , ! INPUT "NOVO=" ; H* : G0TO100 
1110 CLS : PRINT "COMHNDOS R UTILIZRR 

■ II m H 

■ ■ * 

1120 PRINT"R RDD","B BLANK", "D DEL 
ETE","E EDIT","F FORMAT", "H HELP", 
"I INSERT" , "J JUSTIFY", "K KILL" , "L 

LOAD" , "M MOVE" , "P PRINT" , "R REPLR 
CE","S SRVE","V VIDEO" ,"X' EXIT" , 
1130 PRINT "RTENCflO! TECLE DURS VEZ 
ES 'SHIFT-S' PRRR RETORNAR A OPCAO 

DOS COMANDOS QUANDO ESTIVER NA OP 
CAO R,E,I,R":GOTO 100 
1140 INPUT "INSERIR EM QUE LINHR" ; 
L:IF L<0 OR L>LR GOTO 120 a 
1150 IF NL=LA+1 PRINT "ARQUIVO CHEI 
0":GOT0100 ."ELSE IF R G0TG100 



1160 FOR I=Lfl TO L STEP-1 :R*(-I + 1 >« 

R*CI)SNEXT I 

1170 R*(L)="":LR=LR+l:L=L-lslF IT 

RETURN: ELSE IT=l:G0T0130 

1130 CLS:PRINT"CONFIRMANDO 
LR:X=LEN(A*(L) ) : : 
IF X<2 GOTO 1290 '.ELSE FOR 1= 
2 STEP-l:R=RSC(RIGHT$<R$<L> ,1 



=LEFT*(R*(L) 



FOR L= 
TO 
1190 
X TO 
)) 

1200 IF R=U THEN fl*<L>< 
,1-1) :X=X-l!NEXT I 
1210 IF X>=LL OR R=17 OR fl=20 THEN 

1290 :ELSE J=0:K=l:FOR 1=1 TO X 
1220 IF MID.*(R*<L) -,1,1) OS* THEN K 
=0: ELSE , IF K=0 THEN K=l :S( J)=l: J=J 
+ 1 

1230 NEXTISIF J=0 GOTO 1290 
1240 K=RND(J)-l:lF INT(J/2)=J/2 OR 

J=l THEN N=i:ELSE N=2 
1250 FOR 1=1 TO LL-X."T(K)=TQO+l:K 
=K+N:IFK>J-1 THEN K=K-J 
1260 NEXTI :FOR I=J-1 TO STEP -1 
: R*=STRING* ( T ( I ) , S* ) : T ( I ) =0 
1270 fl* ( L ) =LEFT* ( R* ( L ) , S ( I > ) +R*+RI 
GHT* ( fl* ( L ) , LEN ( A* ( L ) ) -S ( I ) ) 
1230 NEXT I 
1290 NEXT LsGOTOlSSO 

1300 CLS:INPUT"DESEJA MRTAR RRQU 
IVO (S/N)";A*:IF A*="S" THEN RUNsE 
LSE 100 :: 

1310 GOSUB 1370 : CLS : PRINT"LENDO D 
ADOS DA FITA": i 
1320 INPUT#-1,LA 
1330 INPUT#-1,LL 
1340 INPUT#-1,S 
1350 INPUT#-1,N* 
1360 INPUT#-1,FL 
1370 INPUT#~-1,LM 
1330 INPUT#-1,PL 
1390 INPUT#~1,PN* 
1400 INPUT#-1,FP 
1410 INPUT#-1,P1* 
1420 INPUT#~1,H* 

1430 FOR 1=0 TO LA STEP 4:INPUT#-1 
,X*(0) 

1440 INPUT#-1,X*(1) 
1450 INPUT#-.1,X*(2) 
1460 INPUT#-1,X*C3> 

1470 FOR J=0 TO 3:L=I+J : X=LEN( X*( J 
) ) :A*(L)="":IF X<1 GOTO 1490 
1430 FOR K=l TO X : A* (L)=A*(L)+CHR* 
(ASC(MID*(X*(J> ,K,1) ) ) SNEXTK 
1490 NEXT J : NEXTI :G0T0100 
1500 INPUT"PRIMEIRA LINHA PARR MOV 
ER"5F:IF F<0 THEN F=0:: 
1510 INPUT"ULTIMA LINHfl PflRfl MOVER 
" ;Z:IF Z>Lfl THEN Z=Lfl 
1520 IF F)2 THEN 120 :ELSE INPUT" 
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PRIMEIRA NOVO LINHR" ; N 5 FOR I*F TO 

1530 IF LEN(fl*(N)) PRINT "LINHR" : N 5 
" CHEIR " :l=Z+l:CH=i:G0T01550 
1540 fl*(N)=R*(I> :fl*(I)="":N=N+l:lF 

N>LR THEN LR=N 
1550 NEXT is IF CH=1 THEN GOTO 100 

ELSE CH=0:GOTO 1SS0 
1560 IF PEEK ( 14312 X12S THEN X«FP« 
M=FL:GOTO 1590 : : 

1570 INPUT "IMPRES30RR NRO ESTR PRO 
NTR. RBRNDONRR <S/N)";fi* 
15S0 IF R*="S" THEN 100 :EL3E INP 
UT "PRESSIONE ENTER" ; R* : G0T01560 
1590 . R=l s G0SUB520 :CLS : PRINT " IMPR 
IMINDO" 

1600' LPRINT CHR*(30):IF PN*<>"S" 
R •<P1*--="N" RND X = l) GOTO 1620 
1610 LPRINT TRBXLM>H*;TBB(LL+LM-7) 
"PRGINR" ;USING"###";X: LPRINT TRB(L 
M) 

1620 FOR P=M TO M+PL-1:IF P>Lfl GOT 
1660 

1630 M=M+i:lF S LPRINT STRING* (S-l 
,13) 

1640 LPRINT TRB(LM> : :IF N*="S" LPR 
INT USING F*;P: 

1650 LPRINT fl*(P):IF RSC ( RIGHT* ( R* 
(P) ,1) )<>17 NEXT P 

1660 LPRINT CHR*(2S):IF P>Lfl THEN 
100 sELSE X==X + l:GOTO 1600 
1670 INPUT "DESEJR TROCAR QURL LIN 
HR";L:IF L<0 OR L>LR GOTO 120 :: 
1630 R=l : fl$ ( L ) = " " : L=L-1 : G0T0130 
1690 GOSUB 1870 : CLS: PRINT "GRRVAN 
DO DRDOS NR FITR": : 
1700 PRINT#-l,Lfl 
1710 PRINT#-1,LL 
1720 PRINT#-1,S 
1730 PRINT#-1,N* 
1740 PRINT#-1,FL 
1750 PRINT#-1,LM 



L=0 TO Lfl STE 



1760 PRINT#-1,PL 

1770 PRINT#--1,PN* 

17S0 PRINT#--1,FP 

1790 PRINT#-1,P1* 

1S00 PRINTtt-1 , H* : FOR 

P 4 

i810 FOR J=0 TO 3:I=L+J:X=LEN(R$(I 

) ) : X* ( J ) = "" : IF X < 1 GOTO 1330 

1320 FOR K=l TO X : X* ( J ) =X* (J ) +CHR* 

( RSC ( MID*~< R* ( I ) , K , 1 ) ) ) : NEXTK 

1330 NEXT J : PRINT#-1 , X* ( ) 

1340 PRINT#-1,X*(1) 

1350 PRINT#-1,X*(2) 

I860 PRINT#-1 , X* ( 3 ) : NEXTL : G0T0100 

1870 INPUT "QURNDO PRONTO CRS3ET 

E PRESSIONE < ENTER > " ; R* : RETURN 

1830 CLS:X=FP-l:FOR M=FL TO LR STE 

P PL:X=X+l: : 

1890 IF P1*="N" RND X=l GOTO 1910 

1900 IF PN*="S" PRINT H$ ; TAB ( LL-7 ) 

"PRGINR" USING "###" ; X : PRINT 

1910 FOR I=M TO M+PL--1--IF DLfl GOT 

1940 

1920 IF S PRINT STRING* ( S-l , 10 ) 

1930 GOSUB 1960 

1940 NEXT I:R*--="":IF K=LA INPUT " 

PRESSIONE ENTER"! A*: IF A*<)""M=LA 

1950 NEXT N:L=LA:GOTO 100 

1960 Y=LEN(A*(I) ) : IF Y THEN R=ASC*( 

RIGHT* (A*(I) ,1) ) :ELSE A=0 

1970 IF N*="S" PRINT USING F* ; I ; 

1930 PRINT A*(I);:IF A=17 PRINT CH 

R* ( 92 ) ; 

1990 IF A=20 PRINT CHR*< 93 ) 5 : ELSE 

IF A=U PRINT CHR*<95>; 

2000 IF N*<>"S" OR Y< >69 PRINT 

2010 RETURN 

2020 CLS: INPUT "DESEJA SAIR DO PROG 

RRMR (S/N) ";R*:IF flf()"S" GOTO 100 

2030 CLS: CLEAR 50 : 0UT254 , 0: END 






UTIXJTARIO 



Listagem rapida 



CP 400 COLOR 



16 Kb RAM 




Se voce estiver desenvolvendo um 
programa e precisar de uma boa revi- 
sao, utilize este utilitario, que permite 
ao CP 400 dispor do recurso de uma lis- 
tagem super-rapida, com a simples uti- 
lizacao das setas. 
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A rotina de listagem automatica es- 
ta, na realidade, em linguagem de ma- 
quina, porem, o programa que a colo- 
ca na memoria esta em Basic. Esse pro- 
grama utiliza uma serie de recursos 
avancados, que analisaremos a seguir. 



Mas, antes de voce terminar a digitacao, 
nao deixe de copia-lo em fita ou disco 
antes de rodar, pois ele apaga a porcao 
em Basic da memoria, deixando apenas 
a rotina em linguagem de maquina 
operando. 



Inicialmente, o programa localiza o 
topo da memoria na linha 330. Com es- 
sa informacao, ele separa espaco sufi- 
ciente na memoria para acomodar a ro- 
tina em linguagem de maquina (linha 
340) e localizar o novo topo da memo- 
ria, na linha seguinte. 

As quatrO linhas a seguir (360 a 390) 
leem os valores decimais corresponden- 
tes a rotina, para acomodacao na area 
de memoria previamente reservada. 
Esta area, com este procedimento, fi- 
ca protegida contra futuros NEWs, 
CLOADs ou LOADs — o que significa 
que todos os programas que foram co- 
loCados na memoria nao afetarao esta 
rotina. 

A linha 400 ativa a rotina e a 410 lo- 
caliza o inicio do programa em Basic 
que a carregou. A linha seguinte coloca 
dois zeros no comeco daquele progra- 
ma para que o computador o considere 
"apagado". Na linha 430, outros dois 



zeros sao colocados na memoria, des- 
ta vez nos enderecos usados pelo com- 
putador para marcar a linha onde ele 
esta trabalhando. 

A ROTINA 

A primeira parte do codigo carrega- 
do altera duas posigoes de memoria pa- 
ra que o computador sake para a roti- 
na SUPERLIST toda vez que uma te- 
cla seja pressionada. 

A segunda parte e a sub-rotina, para 
onde o computador salta quando qual- 
quer tecla e pressionada. Essa sub- 
rotina verifica se a tecla digitada foi a 
seta para cima e, nesse caso, muda o va- 
lor decimal de 94 para Um , a fim de que 
nao seja impfesso o colchete. 

A terceira parte e a principal da roti- 
na. Ela verifica qual seta foi pressiona- 
da, localiza o niimero e o endereco da 
linha imediatamente posterior ou ante- 
rior, conforme o caso, e ativa a sub- 



rotina na ROM, que procedera a deco- 
dificacao e listagem dessa linha. 

OBSERVAQOES FINAIS 

Se voce for usar o SUPERLIST com 
varios programas, nao se esqueca de 
executar um LIST da parte que preten- 
de analisar logo apos carregar cada pro- 
grama. Isso deve ser feito sempre, pois 
o computador mantem registro de on- 
de estava a ultima linha de programa, 
mesmo que um novo programa seja co- 
locado na memoria. Essa informacao 
so e adaptada ao novo programa apos 
um LIST. Dependendo de onde estiver 
esse endereco, o SUPERLIST pode en- 
contrar a proxima linha do novo pro- 
grama; caso contrario, o computador 
podera travar. No entanto, se isso acon- 
tecer, simplesmente acione RESET, di- 
gite LIST e pressione ENTER para tu- 
do voltar ao normal. 



10 ' SUPERLIST 

20 ' JRN/85 PRULO RDDRIR 

30 CLS s TM=PEEK ( 39 ) *256+PEEK ( 40 ) 

40 CLERR 200,TM~240 

50 TM=PEEK ( 3? ) *256+PEEK ( 40 ) 

60 F0RX=TM TO TM+223 

70 RERD fi 

80 POKE X,A 

90 NEXT X 

100 EXEC TM 

110 P=PEEK ( 25 ) x-256+PEEK ( 26 ) 

120 POKEP,0sPOKEP+l,0 

130 POKE 43, 0s POKE 44,0 

140 DRTfl 49,141,0,220,190,1,107, 

175,164,48,141,0,36,191,1,107,49 

,141,0 

150 DRTR214, 190, 1,104, 175, 164, 48 

,141,0,4,191,1,104,57,129,94,38, 

8,111 v 

160 DRTfl 130,90,134,1,50,98,57, 

110,157,0,185,52,119,51,141,0, 

169,129 

170 DATA 1,39,20,129,10,38,10, 

141,26,236,70,221,43,174,72,141, 

122,53,119 



180 DATR110, 157, 0,145, 141, 10, 236 

,66,221,43,174,68,141,106,32,238 

,158 

190 DATA 25,236,132,38,4,50,98, 

32 , 228 , 220 ,43,39,60,16,131, 255 , 

255,39,54 

200 DATA237,66,175 > 68,16,174,132 

, 1 6 , 1 74 ,'1 64 , 38 , 5 , 237 ,70,175,72, 

57,16 

210 DATA 1,63,2,39,14,52,6,236,2, 

237 ,66,53,6,175,68,174,132,32, 

237,16 

220 DATA 174,132,16,174,164,39, 

2,174,132,236,2,237,70,175,72,32 

230 DATA 2,237,70,175,72,237,66, 

175,68,16,174,132,16,174,164,39, 

200,175 

240 DATA 68,236,2,237,66,174,132 

,38,238,32,188,52,16,189,189,204 

,189 

250 DATA 185,172,53,16,189,183, 

1 94 , 286 , 2 , 221 , 1 66 , 1 92 , 39 , 5 , 1 89 , 

185,177,32,247,189,185,92,57 
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80 Kb para o CP 400 COLOR 



Este programa possibilita operar seu 
CP 400 com 80 Kb de memoria. Como 
e possivel? Conte com a gente: sao 
64 Kb de RAM disponivel para voce e 



16 Kb de ROM. 64+ 16 = 80 Kb. Em- 
bora pequeno, este programa e muito 
poderoso, e faz o que chamamos de pa- 
ginacao de memoria. O que realmente 



ocorre e que este programa divide a me- 
moria em "paginas" com 32 Kb cada 
uma, completamente independentes. 
Podemos, entao, comparar o CP 400 
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a dois computadores, um dentro do ou- 
tro, cada um com 32 Kb de RAM. Vo- 
ce podera carregar dois programas in- 
dependentes nas duas paginas, acessar 
o cassete separadamente etc. 

Apos digitar o programa, rode-o. A 
tela nao devera se modificar. Agora di- 
gite — na sequencia — new ENTER, 
CLEAR e EXEC 32383, para visuali- 



zacao da copia do programa original, 
que estavana "pagina" 1. Oda"pagi- 
na" 2, onde voce estava antes, foi apa- 
gado. Digite agora EXEC 32353. Pron- 
to. Ca estamos de volta na "pagina" 2. 
Agora, todas as vezes que voce quiser mu- 
dar de pagina, e so utilizar os comandos: 
EXEC 32353 para passar para a "pagi- 
na" 2 e EXEC 32383 para passar para 
a "pagina" 1. Voce tambem podera in- 



cluir estes comandos em um programa 
BASIC e carregar e executar programas 
completamente diferentes nas duas pagi- 
nas, sem que um atrapalhe o outro. Mas 
vale a pena fazer aqui algumas observa- 
coes: voce nao podera usar comandos de 
alta resolucao na "pagina" 2, nao pode- 
ra rodar os dois programas simultanea- 
mente e, se RESET for pressionado, vo- 
ce voltara sempre para a "pagina" 1. 



10 
28 
38 
M8 
50 
66 



' X X X X X X X X X X X X X X X X X X X X X X X X X X X f 

'x 86 K * 

'x C.P. COMP. F'ESSQRIS * 

IM CP-486 * 

'» PROGRRMR DO USURRIO * 

< X X X X X X X * X X X X X X X X X X X X X X X X X X X X 

70 CLERR108, 32388 

88 FORI=65068 TO 65068+il2sRERDR 

$s-pOKEI»VRL<"&H ,, +fl$):NEXTI 

90 RESTORE 

100 FQR.I=32300 TO 32308+1 12s RERD 

R$!POKEIrVRL<"&H"+fi$) 

110 NEXTI 

126 RESTORE 

130 DEFUSR0=--32380:DEFUSR1=32326 

me IFPT>8THEN180 

150 PT=1 

168 XX~USR<8) 

170 GOTO80 



188 
198 
280 
218 
228 
238 
2MB 
258 
266 
276 
288 
298 
388 
313 
328 
338 
31-48 
358 
368 



POKE&HFFDE, I 

YY=USR1<8) 

END 

DRTR 1R ,"58, SE, 88, 88, R6 

DRTRFF , DF , R7 , 80 , &7 , FF 

DRTRFF , 88 , 26 , Fl , 87 , FF 

DRTRRF,39 

DRTR1R,58,8E, 

DRTR08,R6,86, 

DRTR87,FF,DH, 

DRTRF8,1C,RF 

DRTRB7,FF,D5, 

DRTRB7,FF,C6, 

DRTRCR,B7,FF, 

DRTRFF ,D8,B7, 

0RTRB7, FF.OU, 

DRTRB7,FF,C6, 

DflTRCfirE^F?', 

DRTRFF, D8,B7, 



, BH , B7 
,DE,8C 
,DF,1C 



86, 80, 18, 3E, 80 
,R7,R8 
,80,25 



B7,FF,D5 i 
10,80,80: 



86,39,87,81,67 

B7,' r F,C9 ; 

CC,B7,FF: 

FF^D3,39 

86,7E,B7 : 

B7,FF,C9 ! 

CC,B7,FF 

FFrD2,3? 



r rJV ,r,~ 



■81,67 
,B7,Ff- 
, i,c. , Wf 



■ 



JOGO 



Aterrissagem Lunar 



Parte II 



CP200 — 16Kb RAM 



No ultimo numero, voce iniciou sua 
Aterrissagem Lunar. Agora, e so termi- 
nar de digitar a listagem em Basic, nao 
esquecendo que a linha 120 precisa ser 



completada com os seguintes dados: 
AT 2,15; " ■ ". Depois k sd jogar, to- 
mando sempre cuidado com as deslo- 
cacoes de sua nave para nao perder o 



combustiyel. Todos os comandos ne- 
cessarios sao dados pelo seu computa- 
dor pessoal. 



RT 2,15;'W 

130 PRINT RT 2,0.;"VEL0C.= "RBS(R), 

140 IF R<0 OR R=0 THEN PRINT "DESC 

ENDO" 

150 IF R>0 THEN PRINT "SUBINDO" 

160 FOR N=l TO 16-B/100 

170 PRINT 

ISO NEXT N 

190 FOR N=l TO 5+<RND*3>~(RND*3> 

200 PRINT " " ; 

210 NEXT N 

220 PRINT "<0>" 

230 FOR: N=16-INT (B/100) TO 16 

240 PRINT 



250 


NEXT N 


260 


PRINT "COMB.?" 


270 


INPUT T 


280 


LET C=C-T 


290 


LET B=B+R-T-10 


300 


LET R=fl+T-10 


310 


IF C<1 THEN G0T0400 


320 


IF B<50 THEN CLS 


330 


IF B<50 THEN G0T0420 


340 


IF B> 19 THEN G0T0100 


350 


IF RBS (BX20 AND RBS 


HEN 


LET K=l 


360 


IF K=l THEN PRINT "ATI 


PEF 


:FEITfl" 



< R ) < 50 T 



'fiTERRISRGFJ"1 
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370 II- K=l THEN STOP 

3S0 CLS 

390 IF C>1 THEN GOTO 420 

400 CLS 

410 PRINT FIT 4,6;"RCRB0U-SE COM 

BUSTIVEL" 

420 PRINT AT 7,6; "CHOCOU-SE CONTRA. 



A LUA A "5 
430 PRINT AT 9,14;ABS <A);"KM/H" 
440 STOP 

450 SAVE"ATERRISA6EM" 
460 CLS 
470 RUN 



EDUGAGIONAL 






Trinomio do 2.° Grau 



CP200 — 16Kb RAM 



Este e mais um programa educatio- 
nal, desenvolvido pelo departamento de 
software da CP Computadores Pes- 
soais, para ajuda-lo na fatoracao de um 



trinomio do 2? grau, bastando forne- 
cer os valores dos coeficientes. Devido 
as instrucoes e comandos necessarios se- 
rem dados pelo computador, atraves do 



video, este programa e de facil opera- 
cao, tornando-se um eficiente instru- 
mento para a introducao a informatica 
no setor educational. 



10 '**************************** 

20 '* TRINOMIO-SEGUNDO-GRAU * 

30 '* PROLOGICA * 

40 '* CP-2O0 * 

50 '**************************** 

60 CLEAR 

70 CLS 

SO PRINT AT 3,5;" FATORACAO DE TRI 

NOMIO " 

90 PRINT AT 10,14;" DO " 

100 PRINT AT 12,9;" SEGUNDO GRAU " 

110 PRINT AT 20,3;"DIGITE <C> P/ C 

ONTINUAR" ; 

120 LET A*=INKEY* 

130 IF A*="" THEN GOTO 120 

140 CLS 

150 PRINT AT 3,2;"ENTRE COM OS VAL 

ORES PEDIDOS: " 

160 PRINT AT 5,4;"C0EFICIENTE A= " 

170 INPUT A 

ISO PRINT AT 5, 19; A 

190 PRINT AT 7,4;"C0EFICIENTE B= " 

200 INPUT B 

210 PRINT AT 7,19;B 

220 PRINT AT 9,4; "COEFICIENTE C= " 

230 INPUT C 

240 PRINT AT 9,19; C 

250 IF A=0 OR B=0 OR C=0 THEN GOTO 

140 
260 PRINT AT 20,4;"ALGUMA CORRECAO 

<S/N>? " 
270 INPUT D* 

2S0 IF D*="S" THEN GOTO 140 
290 LET DELTA=(B*B)-(4*A*C) 
300 IF DELTA<0 THEN GOSUB 600 
310 IF DELTA <0 THEN GOTO 560 



320 LET X1=(-B-SQR (DELTA) )/ <2*A) 

330 LET X2=<-B+SQR ( DELTA) )/< 2*A) 

340 CLS 

350 PRINT AT 2,10;" TRINOMIO " 

360 PRINT AT 3,13;" DO " 

370 PRINT AT 4,3;" SEGUNDO GRAU " 

330 PRINT AT 7,3;" FORMULA GERAL " 

390 PRINT AT 9,9; "*************" 

400 PRINT AT 10,9;"* ♦" 

410 PRINT AT 11,9;"* 2 *' 

420 PRINT AT 12,9;"* AX+BX+C *" 

430 PRINT AT 13,9;"* *" 

440 PRINT AT 14,9; "*************" 

450 PRINT AT 16,4;" SOLUCAO DESTE 

EXERCICIO " 

460 PRINT AT 13,4; "2" 

470 IF B>0 AND C>0 THEN PRINT AT 1 

9,2;A;"X+";B;"X+";c 

430 IF B>0 AND C<0 THEN PRINT AT 1 

9,2;A;"X+";b;"X";C 

490 IF B<0 AND 00 THEN PRINT AT 1 

9,2;a;"X";b;"X+";c 

500 IF B<0 AND C<0 THEN PRINT AT 1 

9,2;A;"X";B;"X";c 

510 PRINT AT 19,14;"=" 

520 IF X1>=0 AND X2>=0 THEN GOSUB 

650 

530 IF X1>=0 AND X2<0 THEN GOSUB 6 

70 

540 IF XKO AND X2>=0 THEN GOSUB 6 

90 

550 IF XKO AND X2<0 THEN GOSUB 71 





Continua no proximo numero 
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GERACAO PROLOGICA 




CP 400 E A INTERFACE 
DE COMUNICACAO SERIAL 



A eficiencia das possibilidades do CP 400 Color pode ser cada vez mais ex : 
plorada, na medida em que voce for conhecendo a potencialidade do equipa- 
mento e a utilidade de seus acessorios. Estes conhecimentos sao basicos para 
uma correta utilizacao e funcionabilidade do computador. Neste numero, dicas 
sobre a interface de comunicacao serial e o CP 400, fornecidas pelo departa- 
mento de Engenharia de Produto da CP Computadores Pessoais. 




■ 



O CP 400 possui uma interface de comunicacao serial, 
que e utilizada para ligar ao computador uma impresso- 
ra, um modem ou qualquer outro equipamento que utili- 
ze o padrao RS 232C de comunicacao. 

Para trabalhar com esta interface, um dos dados mais 
importantes e a velocidade de comunicacao de dados — 
conhecida como BAUD RATE. Para tanto, podemos con- 
figurar o CP 400 de acordo com a velocidade de transmis- 
sao/recepcao do periferico ou configurar o periferico com 
a velocidade do computador. 

No primeiro caso, utilizamos a seguinte tabela: 



Baud Rate 


POKE 149,x 


POKE 150,x 


50 


4 


88 


50 


4 


88 


75 


2 


227 


110 


1 


246 


134,5 


1 


153 


150 


1 


110 


300 


— 


180 


600 


— 


. 87 


1200 


— 


40 


1800 


— 


25 


2000 


— 


23 


2400 


— 


18 


3600 


— 


10 


4800 


— 


7 


7200 


— 


3 


9600 


— 


1 



Assim, para configurar o CP 400 para receber/transmitir 
a 50 bps devemos dar as seguintes instrucoes: 



POKE 149,4 : POKE 150,88 



Para configurar a 9600 bps, deve-se dar apenas a instrucao: 



POKE 150,1 




Observe que esta instrucao nao se apaga quando o micro 
e "resetado", mas apenas quando o mesmo e desligado 
e ligado novamente. 

Quando o CP 400 e ligado, sua velocidade de transmis- 
sao/recepcao de dados esta ajustada para 600 bps (ende- 
reco 150 content o valor 87). Quando utilizamos a P 500 
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para trabalhar com o CP 400, podemos configurar a ve- 
locidade de transmissao/recepcao da P 500. Importante: 
observe que esta velocidade nada tern a ver com a veloci- 
dade de impressao de dados. 

Para tanto, utilizamos as microchaves existentes no in- 
terior da impressora. A tabela abaixo mostra a velocida- 
de para cada combinacao de posicoes destas microchaves: 



Chave 1 


Chave 2 


Chave 3 


Chave 4 


Baud Rate ^ 


ON 


ON 


ON 


ON 


50 




ON 


ON 


ON 


OFF 


75 




ON 


ON 


OFF 


ON 


110 




ON 


ON 


OFF 


OFF 


134,5 




ON 


OFF 


ON 


ON 


150 




ON 


OFF 


ON 


OFF 


300 




ON 


OFF 


OFF 


ON 


600 




ON 


OFF 


OFF 


OFF 


1200 




OFF 


ON 


ON 


ON 


1800 




OFF 


ON 


ON 


OFF 


2000 




OFF 


ON 


OFF 


ON 


2400 




OFF 


ON 


OFF 


OFF 


3600 




OFF 


OFF 


ON 


ON 


4800 




OFF 


OFF 


ON 


OFF 


7200 




OFF 


OFF 


OFF 


ON 


9600 




I 













MICROCHAVES 
DE CONTROLE 
DA VELOCIDADE 
DE TRANSMISSAO/ 
RECEPCAO. 




INTERFACE 
SERIAL 



Atencao: Nas microchaves, o lado OPEN corresponde a 
OFF desta tabela. Estas chaves estao localizadas numa pla- 
ca adicional (que e a placa da interface de comunicagao 
serial) montada sobre a placa principal, proxima ao local 
onde ficam as teclas de comando da P 500. 




SP16, 

um profissional 

para profissionais 

O mercado brasileiro de informatica 
especializa-se a cada ano, formando 
umageracaodeprofissionaisexigentes' 
em relacao ao equipamento utilizado. 
Para atender a essa necessidade, a Pro- 
logica investiu cerca de Cr$ 2 bilhoes no 
desenvolvimento do Sistema Prof issio- 
nal 16, ou simplesmcnte SP 16. 

Para Carlos Roberto Gauch, vice- 
presidentedaempresa, "oSP 16 e uma 
evolucao natural dos microcomputado- 
inha F ologica, que permite 
aproveitar a vasta biblioteca de aplica- 
tivos existentes par»©St8te»»«40&«>si- 
multaneamente usar os poderoiiolfpro- 
gramas que rodarn em equipamentps de 
16 bits, Mais do que um equipamento 
compati'vel comb IBM/PC, ele e um 
microcomputador adaptado as reais ne- 
cessidades do mercado brasileiro". 



SISTEMA 700 MODULAR, 

mais uma 

vantagem da Prologica 

Os empresarios brasileiros contam 
agora com a terceira geracao do Siste- 
ma 700 da Prologica: o Sistema 700 Mo- 
dular, que apresenta uma serie de ino- 
vacoes tecnologicas para facilitar ain- 
da mais a operacao. O novo equipamen- 
to de tres modulos possui disco rfgido 
Winchester incorporado, dez teclas de 
funcoes, teclado ergonometrico e capa- 
citivo (cinco vezes mais resistente que 
os tradicionais), memoria de 64 Kb 
de RAM e 4 de EPROM e tres micropro- 
oessadores, sendo um deles — Intel 8035 
— dedicado exclusivamente ao teclado 
inteligente de 91 teclas. 

Alem de todas as vantagens tecnolo- 
gicas, a Prologica preocupou-se tarn- 
bem com o design do Sistema 700 Mo 
dular. Suas linhas arrojadas trazem a 
marcamodernistade Luciano Devia — 
o mesmo artista cat jriealizou asTormas 1 
do CP 400 e CP 200S da CP Compu- 
tadores Pessoaisr"™""" 




Executivos querem 
computador nas escolas 

A Associagao National dos Dirigentes e Executivos de Informatica — Andei 
— entregou ao ministro da Educacdo, Marco Maciel, pedido de inclusao do 
ensino bdsico sobre informatica nos curriculos de primeiro e segundo graus e 
nos cursos superiores. 

A Andei justifica a proposta afirmando que "o Brasil precisa formar profis- 
sionais adequados ao desempenho de funcoes provocador as de mudancas or- 
ganizacionais e se preparar para a informatizacao da sociedade, onde o 
computador jd comega a fazer parte da vida cotidiana dos cidadaos" 



A Franca entra no seculo XXI 



O governo f ranees pretende entrar no seculo XXI ainda este ano, colocando 
opai's na "vanguarda da revolucdo da informatica", afirma o primeiro-ministro 
Laurent Fabius. Para conseguir tal revolucdo, a Franca estd implantando um 
projeto que envolve todos os onze milhoes de estudantes do pais, do primdrio 
a Universidade, que a partir de setembro terdo formacdo superior curncular 
em informatica. Assim, nenhum aluno frances, de hoje ate 1988, deverd sair 
da escola sem estar formado em computacdo. 

/ 

nn 200 da aula em Recife 

Os alunos do primeiro grau da Escola Sao 
Francisco de Assis, em Recife, estdo aprenden- 
do matemdtica e outras materias, com a ajuda 
do CP 200. No initio, o professor Guilherme Pe- 
reira teve que improvisar monitores usando ve- 
Ihas TVs e elaborar programas simples para as 
aulas. Mas, apos duas semanas de curso, os alunos jd conjessavam ao profes- 
sor que estavam gostando mais de estudar materias, como matemdtica, pelo 
CP 200 e exigiram tambem programas para outras materias, principalmente, 
geografia e portugues. 





Andei oferece Bolsa de Empregos 

Com o objetivo de defender os interesses profis- 
sionais da area de informatica, a Associacao Natio- 
nal dos Dirigentes e Executivos de Informatica — 
Andei — esta oferecendo um novo servico para o se- 
tor: a Bolsa de Empregos. 

Sob a direcao d,e Dalton Gobato, a Bolsa de 
Empregos- Andei tern obtido grande receptividade no 
mercado, prestando seus servicos a todos os profis- 
sionais da area, mesmo aqueles que nao tern nenhum 
vinculo com a entidade. Maiores informa- 
coes, a Rua Capitao Antonio Rosa, 376, conjunto 
102, Sao Paulo, ou pelo telefone (011) 280-0401. 
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CP 500, 

o novo programador 

musical do Pais 

O CP 500 se tornou o novo programador musical 
do Pais, atraves do Sistema de Programacao Musi- 
cal Aleatoria Coordenada (SPMAC), desenvolvido 
pela Fenix Engenharia de Sistemas e Informatica. 
Com esta inovadora aplicacao, o CP 500 reduz de oi- 
to horas para um minuto o trabalho na elaboracao 
de um dia de programacao. 

"O sistema define todos os parametros determi- 
nados pelo programador, desde os criterios para en- 
trada de miisicas ate horarios de comerciais, vinhe- 
ta's ou intervencoes jornalisticas", afirma Claudio 
Buiton, da Fenix. 

A L & C de Comunicacoes — que coordena a pro- 
gramacao de 1 16 emissoras espalhadas pelo Pais — 
utiliza-se do software da Fenix que, alem do CP 500, 
desenvolveu tambem uma versao compativel com o 
Sistema 700 da Prologica. 



CLUBE DO SOFTWARE 

em Sao Paulo 



Foi criado, em Sao Paulo, oprimeiro Clube do Soft- 
ware, com o objetivo de viabilizar o intercambio de pro- 
gramas e informagoes entre analistas eprogramadores. 
Em tres meses de atividade, o clube jdpossui um acer- 
vo de 1200 programas e a participagdo de, aproximada- 
mente, 100 analistas. 

A intengao de seus criadores, Nelson Peter Lajovic e 
Luiz dos Santos, proprietdhos da Pro-Eletronica, ecriar 
um espago para a comunidade deprofissionais e interes- 
sados em informatica que necessite de solucdes especifi- 
cas, qualquer que seja o equipamen to. Maiores inf or ma- 
goes: Rua Santa Ifigenia, 568 — Sao Paulo — telefone: 
(011) 221-9055. 
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CONVERSOR SERIAL 
para o CP 400 Color 



A Micro Equipamentos 
desenvolveu mais dois aces- 
sorios para o CP 400 Color: 
o Conversor Serial Paralelo, 
que convene a saida serial 
do computador em saida pa- 
ralela, possibilitando o uso 
de qualquer impressora pa- 
drao Centronics (paralela) 
do mercado. Com este con- 
versor, o usuario tern a van- 
tagem de poder, atraves de 
uma chave de comutacao do 
painel, ter acesso a saida se- 
rial do equipamento sem a 
desnecessaria troca de cabos. 

O segundo produto da 
Micro Equipamentos e o Co- 
mutador de Saida Serial, que 
permite duplicar a saida se- 
rial do CP 400, para a utili- 
zacao de dois perifericos se- 




riais. Estes dois novos pro- 
dutos ja estao disponiveis no 
mercado, em todos os reven- 
dedores da CP Computado- 
res Pessoais. 



I ENCONTRO NACIONAL 

DE REPRESENTANTES 

CP COMPUTADORES PESSOAIS 




usuanos, a cr eompuiaao- 
res Pessoais tern ampliado 
sua estrutura de representa- 
cao regional, visando a ho- 
mogeneizacao dos pontos de 
vendas no atendimento espe- 
cializado. 

Nesse sentido, foi realizado, 
em agosto, o I Encontro Na- 
tional de Representantes CP 
Computadores Pessoais. 
Alem dos fatores tecnicos e 



aram pe- 
la necessiaaae ae se realizar 
um efetivo trabalho de aten- 
dimento aos clientes. 
Para Ney Carlos, gerente do 
Departamento de Software 
da CP, o objetivo da empre- 
sa nao e so fabricar um equi- 
pamento poderoso, mas, 
principalmente, viabilizar as 
solucdes que tais equipamen- 
tos podem possibilitar para 
qualquer atividade. 
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localizagao e ediqao 




O que acontece quando existe urn 

erro no programa que voce esta 

rodando? Existem duas alternativas: 

na primeira, o computador mostra 

urn laconico "MN Erro na XXX", 

onde MN e um mnemonico que 

indica o tipo de erro detectado e 

XXX, o numero da linha onde ele 

ocorreu. Apartir dessa informagao, 

voce digita um invariavel LIST XXX 

ENTER, analisa a linha problematical 

e, quase sempre, parte para um EDIT ll 

XXX ENTER. A segunda alternativa ea 1 

localizagao e edigao automaticas de 

erros, uma possibiiidade conquistada pela 

publicagao do livro "Indo Alem com o CP400 

Color", de Paulo Addair Daniel Filho;um dos' 

recursos mais serios no Brasil sobre a 

exploragao de informagoes estrategicas para 

o CP 400 Color. Neste numero, a Gerapao Prologica publica, com 

exclusividade, as explicagoes e rotinas para a localizagao e edigao automaticas de erros. 



Localizagao e Edigao 



E possivel melhorar significativamente o funcionamen- 
to da rotina de tratamento de erros. Podemos acrescentar 
uma rotina em linguagem de maquina no CP 400 capa^. 
de, ao ocorrer um erro, acionar automaticamente a fun- 
cao de edicao, posicionar o cursor sobre a parte da linha 
onde o erro'foi detectado e permitir que voce tenha ape- 
nas o trabalho de corrigi-lo. v 

O interpretador BASIC do CP 400 utiliza uma sub- 
rotina armazenada nas posicoes &H9F a &HAA que "pe- 
ga" os caracteres um por um dentro da linha de progra- 
ma. Quando o interpretador encontra um erro, o conteudo 
de &HA6 e &HA7 aponta para o ultimo caractere lido pe- 
lo interpretador. 

As linhas em BASIC sao armazenadas num formato "re- 
missivo", ou seja, as palavras-chave nao sao armazena- 
das por extenso, mas sim representadas por um codigo de 
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ate dois bytes. Isso torna o programa mais compacto e, 
conseqiientemente, mais rapido. Por outro lado, fica di- 
ficil para o operador ler a linha diretamente da memoria. 

Para que o operador possa identificar corretamente onde 
ocorreu o erro a identificacao deste deve ser colocada den- 
tro da representacao "legivel" da linha, ou seja, a linha 
deve ser decifrada. Mas, existe uma rotina em &HB7CB 
que realiza essa funcao e coloca a linha decifrada na me- 
moria auxiliar (buffer) indicada pelo registrador Y. 

Agora precisamos definir os varios passos necessarios 
para que as coisas saia como esperamos: em primeiro 
lugar, precisamos fazer com que a linha seja decifrada e 
que o cursor pare sobre o erro. Para isso, colocamos um 
zero na posicao de erro. Isso faz com que a rotina de de- 
codifica?ao acredite que aquele e o final da linha. As li- 
nhas 00350 a 00450 salvam a posicao do erro, recolocam 
o caractere original e continuam a decodificacao. 

As linhas 00490 a 00580 imprimem o numero da linha 
e o seu conteudo, assim como EDIT o faria, e entao acio- 
nam a edicSo, via rotina &H855C. 
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SUPORTE 

automaticas de erros 

CP 400 COLOR 



Nosso linico problema agora e como fazer com que o 
interpretador BASIC realize tudo isso automaticamente, 
logo apos ter sido detectado um erro. O interpretador passa 
pelas posicoes &H15E a &H1A8 varias vezes em diversas 
situacoes. A rotina do interpretador que coloca um carac- 
tere na tela (CHROUT — $A282) e importante, pois a no- 
va instrucao EDIT deve ser acionada apos ter sido impresso 
"Erro na". 

Este desvio pode ser usado para verificar qual instru- 
cao esta sendo colocada na tela. A mensagem "Erro na" 
fica armazenada nas posicoes $ABE1 a $ABEB da ROM. 
A rotina CHROUT espera por esse endereco no registra- 
dorX. 

Existe um problema nesse metodo: "Erro" e "na" sao 
consideradas mensagens separadas na memoria do com- 
putador. Por isso, verificamos apenas se a mensagem "na" 
foi impressa. No entanto, a mensagem "Break na" tam- 
bem utiliza o endereco que checamos no nosso metodo. 
Isso vai fazer com que a edicao seja acionada tambem 
quando houver um STOP ou o acionamento da tecla 
BREAK, e a linha editada sera a ultima que foi executada. 

A rotina CHROUT e checada sempre antes de comple- 
tar a saida na tela. Mudando-se o endereco de retorno usa- 
do no final desta rotina, a nova rotina de erro nao sera 
acionada ate que CHROUT termine. Este endereco e ar- 
mazenado no indicador de pilha pelo registrador S. Ja que 
na tabela de desvio os enderecos estao no terceiro nivel e 
cada nivel ocupa dois bytes, devemos inserir o endereco 
da nova rotina de erro a partir do sexto byte; assim o re- 
gistrador S vai operar apropriadamente. 

A sub-rotina nas linhas 060 a 160 insere o novo desvio 
na tabela. Esta rotina permite que um desvio que ja esteja 
na posicao $167 da tabela seja executado imediatamente 
apos a rotina de manipiilacao de erro. Este metodo e mais 
complicado, porem mantem a compatibilidade com ou- 
tras rotinas que tambem utilizam esse desvio. 

A sub-rotina em linguagem de maquina ate pode traba- 
lhar com micros que nao disponham de Extended BASIC 
(que e o COLOR BASIC do CP 400), mas ai nao daria 
para usar o programa em BASIC que listamos aqui, pois 
ele depende de algumas instrucoes que so o Extended 
possui. 

O programa em BASIC e que vai carregar a sub-rotina 
em linguagem de maquina sem a necessidade de um EDI- 
TOR/ASSEMBLER. As linhas 20 e 25 verificam quanta 
memoria dispoe seu sistema e automaticamente limpam pe- 
lo menos IK para a rotina em LM (Linguagem de 
Maquina). 
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Programa em BASIC 



10 IF PEEK<&H88C8)=18THENG0T028 

20 PRINT"0 PR0GRRMR NRO OPERA SE 

H EXTENDED BRSIC":END 

30 CLERR200,PEEK(&H74)*256 

40 X=PEEK<&H74)*256 

50 F0RY=X TO X+133 

60 RERD Z$: Z=VRL( "&H"+Z$) 

70 POKE Y,Z 

80 C=C+Z 

90 NEXTY 

100 IF C015312 THEN PRINT"ERRO 

NOS DRD0S"x END 

110 EXECX 

120 PRINT"PR0GRRMR CRRREGRDO SEM 

PRQBLEMRS" 

130 PRINT"ENDEREC0:"HEX$(X)" TO 

"HEX$< X+133) 

140 DRTR 8E,01,67,R6,88,R7,8D, 

00 , 20 , 1 , RE , 84 , 1 8 , RF , 8D , 08 , 1 9 

150 DRTR 31,8D,00,08,10,RF,84, 

86,7E,R7,lF,39,8C,RB,ERr26,07 

160 DRTR 31,8D,00,06,10,RF,66r 

39 r 39 , 39 x BD , B9 , 58 , DC , 68 , DD , 2B , 

BD,BD,CC 

170 DRTR BD,B9,RC,BD,RDr01,25 J 

47 r 1 , 8E r 02 , DD , R6 » 9F r 00 , R6 r 34 , 82 

180 DRTR 6F,9F,80,fl6,30,04,BD, 

B7 , CB r 35 , 82 r R7 , 9F , 08 , R6 , 38 , 1 F , 34 

,20 

190 DRTR BD,B7,CB,lF,28r83r02rDE 

, DD , D7 r 8E , 02 , DD , BD , 85 , B4 , BD , B9 r 

58 

200 DRTR BD,BD,CR,BD,89,RC,8E,02 

, DD , 35 , 86 , 83 , 82 , DD , BD , 85 , B6 r BD r 

85 , 5C r 7E r RC , 73 , 7E , RE , D2 



Esperamos que esse pequeno utilitario lhe facilite a vi- 
da na operacao daqueles programas "temperamentais" 
que relutam em funcionar. 
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Rotina em linguagem de maquina 



7F00 

7F00 8E0167 
7F03 0680 
7F05 R78D0020 
7F09 10AE84 
7F0C 10RF8D0019 
7F11 318D0003 
7F15 10AFS4 
7F18 867E 
7F1R A71F 
7F1C 39 

7F1D 8CABEA 
7F20 2607 
7F22 318D0006 
7F26 10RF66 
7F29 39 
7F2R 39 
7F2B 39 



7F2C 
7F2F 
7F31 
7F33 
7F36 
7F39 
7F3C 
7F3E 
7F42 
7F46 
7F48 
7F4C 
7F4E 
7F51 
7F53 
7F57 
7F59 
7F5B 
7F5E 
7F60 
7F63 
7F65 
7F68 
7F6B 
7F6E 
7F71 
7F74 
7F77 
7F79 
7F7C 
7F7F 
7F82 
7F85 



BDB958 

DC68 

DD2B 

BDBDCC 

BDB9RC 

BDRD01 

2547 

108E02DD 

R69F00R6 

3402 

6F9F00R6 

3004 

BDB7CB 

3502 

R79F00R6 

301F 

3420 

BDB7CB 

1F20 

8302DE 

DDD7 

8E02DD 

BD85B4 

BDB958 

BDBDCR 

BDB9RC 

8E02DD 

3506 

8302DD 

BD85B6 

BD855C 

7ERC73 

7ERED2 

0000 



00010 
00020 
00030 
00040 
00050 
30060 
00070 
00080 
00090 
00100 
00110 
00120 
00130 
00140 
00150 
00160 
08170 
00180 
00190 
00200 
00210 
00220 
00230 
00240 
00250 
00260 
00270 
00280 
00290 
00300 
00310 
00320 
00330 
00340 
00350 
00360 
00370 
00380 
00390 
00480 
00410 
00420 
00430 
00440 
00450 
00460 
00470 
00480 
00490 
00500 
00510 
00520 
00530 
00540 
00550 
00560 
00570 
00580 
00590 
00600 
00610 



■X- -X X- X- -X- X- X- X- X- X- -X- X- X- X- -X- X- X- X- X- X- X- X- X- X- X- X- X- X- X- X- X- X- X- X- X- X- X- X 

X 

X 

xxxxxx 



xxxxx 



AUTO EDIT- 
PRULO ADDAIR — JRN/35 

X * -X X X * X X X- -X X X X X X X X X- X X X- X X X X X X- X X X X * 

ORG $7F00 
RERJUSTH DESVIO ANTES DR SfllDR DC 



xxxxx 
VEERRO 



LDX 
LDR 
STR 
LDY 
STY ' 
LERY 
STY 
LDR 
STR 
RTS 
VERIFICR SE 
CMPX tt$ABEA 



PCR 



«$167 

-X+ 

DESVIO, 

-X 

1+DESVIQ,PCR 

VEERRO, PCR 

,x 

tt$7E 
~1,X 



'ERRO Nfl' 



RRMRZENR COHO 
SALVA 3 BYTES 



BNE DESVIO 
LERY ERRO, PCR 
STY 6,S 
DESVIO RTS 
RTS 
RTS 

•X X * X X X X * X X X X X X X X X X X X X X X X X X X X X X X * 

ROTINfl DE MRNIPULRCRO DE ERRO * 

X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X 



CRRRCTERE <$A28; 
PGSICRO PARS VINDR DE CHROUT 
PEGR RETORNO DE DESVIO RTURL 
E COLOCR NO. FIM 

DR NOVR ROTINfl 
PEGR ENDERECO DO NOVO DESVIO 

E COLOCR Nfl TRBELfl DESVIO 

DESVIO NO 6809E. 
RRMAZENA-0 Nfl TRBELfl. 

' FOI IMPRESSO xx* 
IMPRIMINDO "ERRO Nfl"? 
NflO. FflCfl DESVIO NORMAL. 
PEGR ENDERECO DO NOVO DESVIO 



ULTIMO RETORNO. 



XXXXXX 

x NOVR 

XXXXXX 

ERRO 



FIMERR 



JSR 

LDD 

STD 

JSR 

JSR 

JSR 

BCS 

LDY 

LDR 

PSHS 

CLR 

LEAX 

JSR 

PULS 

STA 

LEAX 

PSHS 

JSR 

TFR 

SUBD 

STD 

LDX 

JSR 

JSR 

JSR 

JSR 

LDX 

PULS 

SUBD 

JSR 

JSR 

JMP 

JMP 

END 



*B958 

$68 

$2B 

SBDCC 

*B9AC 

$RD01 

FIMERR 

H$2DD 

IZ$R63 

R 

C*R63 

4,X 

*B7CB 

A 

C$A63 

~1,X 

Y 

$B7CB 

Y,D 

tt$2DE 

$D7 

8*2DD 

*85B4 

*B958 

*BDCA 

$B9AC 

H*2DD 

D 

«$2DD 

*85B6 

$855C 

$AC73 

$AED2 



flPAGA FINAL LINHA NA TELA 
PEGA NUMERO ATUAL DA LINHO 
E ARMAZENR 

IMPRIME NUMERO DA LINHA ATUAL 
IMPRIME ESPACO 

POE POSICAO DO NUMERO DE LINHA 
ERRO SE NAO FOR NUMERO CORRETO 
POSICAO DO BUFFER DO TECLRDQ 
POSICAO DO ERRO NR LINHA BASIC 
SflLVR RQUELE CflRACTERE 
IGUALA A ZERO P/ FIM DE LINHA 
PEGA COMECO DA LINHA BASIC 
REPOE CARflCTERE DE ERRO 
PEGfl CflRACTERE DE ERRO 
COLOCA DE NOVO Nfl LINHA 
REflJUSTP) P/ DECIFRAR A LINHA 
SALVA POSICAO ERRO NO BUFFER 
DECIFRA RESTO DA LINHA 
POE FINAL DO BUFFER EM D 
PEGA COMPRIMENTO DO BUFFE 
SALVA PARA A ROTINA DE EDICAO 
INICIO DO BUFFER 
IMPRIME BUFFER 

FINAL DA LINHA 

NUMERO DE LINHA 

ESPACO 

DO BUFFER 

DO ERRO NO BUFFER 
INICIO DO BUFFER 



APAGfl 
IMPRIME 
IMPRIME 
POSICAO 
PEGA POSICAO 
DISTONCIA DO 



IMPRIME BUFFER ATE' ERRO 
CHAMA ROTINA DE EDICAO 
VAI PARA LOOP DE COMANDO BASIC 
CHAMA ERRO UL 



_ 
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A potencialidade e a efi- 
ciencia do CP 500, em qual- 
quer uma de suas versoes, sao 
instrumentos poderosos para 
qualquer atividade profissio- 
nal. Um exemplo desta capa- 
cidade e o trabalho desenvol- 1 
vido por Theodore Papageor 
giou, que criou a Electro-Arts | 
Som e Imagem — uma empre- 
sa especializada em efeitos es- o 
peciais de som, iluminacao e 
projecao — com a ajuda com- 
putadorizada de um CP 500 e 
uma impressora P 500. 

Segundo Theodore, "a Elec- 
tro-Arts nasceu a partir da 
ideia de que se pode produzir, 
atualmente, no Brasil, efeitos 

especiais de som, iluminacao e projecao com omesmo po- 
tential tecnico e criativo dos efeitos oferecidos no merca- 
do international. Com a utilizacao do CP 500 e Interfa- 
ces Inteligentes, desenvolvidas pela propria Electro-Arts, 
atingimos nosso objetivo, e o importante e que o realiza- 
mos a um custo acessivel". 

Hoje, atraves da computacao, a Electro- Arts cria dese- 
nhos animados, filmes e videos publicitarios com a trtlha 
sonora perfeitamente sincronizada, independentemente do? 
requisitos de edicao de imagem e da composicao musical. 

Atraves da computacao, a empresa esta apta a prestar 
os seguintes servicos: montagem de audiovisuais, para to- 
das as funcoes, e com qualquer niimero de projetores de 
slides; consultoria para sincronismo e montagem de trilhas 
sonoras para filmes e video-teipes; sincronismo de paineis 
luminosos e sistema de programacao de audiovisual. 

CP 500: imagem e som em alta velocidade 

Para os audiovisuais, a Electro-Arts realiza o sincro- 
nismo dos projetores de slides com a trilha sonora atraves 
do CP 500, que pode acionar um niimero indeterminado 
de projetores de slides, podendo gerar audiovisuais de uma 
ou varias telas. Este sistema desenvolvido por Theodore 
permite mudanca de imagem em alta velocidade, com con- 
trole de intensidade de luz e tempo de fusao. 

Segundo Theodore, "o ciclo de um projetor de slides 
e de, aproximadamente, um segundo. Com o CP 500 
posso utilizar oito projetores por tela, ou seja, uma mu- 
danga de oito imagens por segundo, produzindo efeitos 
de animacao". 

GERACAO PROLOGICA 




Na Electro-Arts, o CP 500 

foi transformado em um 

especialista em efeitos especiais 

de som, iluminacao e projecao. 



"Para este sistema" — 
continua — "desenvolvemos 
softwares e interfaces inteli- 
gentes, o que possibilita o 
acesso direto ao sistema ope- 
rational. Dessa forma, pode- 
mos criar sincronismos e efei- 
tos especiais para qualquer ti- 
po de exigencia estetica". 

Outra atividade da empre- 
sa, atraves do CP 500, e a 
consultoria para sincronismo 
e montagem de trilhas sono- 
ras. Tambem nesse caso a 
Electro-Arts desenvolveu soft- 
ware e interfaces que podem 
acionar, atraves do computa- 
dor, sinais de controle para 
sintetizadores de som. 
As interfaces sao basicamente de quatro tipos: Sistema 
Key/Time, para acionar sintetizadores tipo Prophet 5; Sis- 
tema Midi, para acionar sintetizadores avancados; Siste- 
ma CV, GATE, para acionar sintetizadores analogicos e 
modulos de voz desenvolvidos pela propria Electro-Arts; 
e RS 232C e Interfaces Hibridas, para acionar maquinas 
de ritmo e sintetizadores nao compativeis com outros 
sistemas. 

Sincronismo e Software 

Para o trabalho de sincronismo de paineis, a Electro- 
Arts desenvolveu um software especializado para aciona- 
mento de lampadas incandescentes para qualquer tipo de 
funcao, atraves do CP 500, seja iluminacao de pecas de 
teatro e shows musicais, seja para paineis demonstratives 
de processos de producao, letreiros e similares, que tern 
grande aplicacao em feiras e outdoors. 

Mas a Electro-Arts nao se contenta em desenvolver soft- 
wares especfficos e Interfaces Inteligentes para sistemas de 
som, imagem e projecao. Ela utiliza o CP 500 e a impres- 
sora P 500 para todas as atividades administrativas neces- 
sarias a uma empresa: papel-carta e envelopes personali- 
zados, impressao de cartas, controle de produ?ao, alem 
da inevitavel mala-direta. 

Para Theodore Papageorgiou, as funcoes que o CP 500 
pode exercer sao iniimeras. "O problema" — explica — 
"e que ho Brasil ainda nao existe uma cultura informatiza- 
da, que possibilite aos usuarios conhecer a potencialidade 
de seu equipamento e, assim, poder transforma-lo num efe- 
tivo instrumento de trabalho e desenvolvimento". 
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Cobol com Estilo, de Louis J. 
Chmura e Henry F. Ledgard, 
151 paginas, Editora Campus. 
Espirituoso e bem-humo- 
rado, repleto de dicas, conse- 
lhos e pequenos truques; es- 
te livro aborda com simpatia 
os problemas e dificuldades 
do programador em Cobol, 
levando-o a desenvolver no- 
vas habilidades no que se re- 
fere ao estilo e a precisao. 




Jogos em Linguagem de Ma- 
quina, volume 3, selecao da 
Pierluigi Piazzi, 137 paginas, 
Aleph Publicacoes e Editora 
Moderna. 

Apesar do titulo, este vo- 
lume nao exige por parte.do 
leitor conhecimentos de lin- 
guagem de maquina: todos os 
jogos sao listados de manei- 
ra a poderem ser facilmente 
introduzidos no micro por in- 
termedio de um programa au- 
xiliar (monitor). Todos os jo- 
gos sao precedidos por uma 
explicacao, tanto do funcio- 
namento quanto do cenario. 
Obra dirigida para os usuarios 
de microcomputadores com- 
pativeis com o CP 200. 




Cobol: Regras para Progra- 
madores, de George Ledin 
Jr. , Michael Kudlick e Victor 
Ledin, 228 paginas, Editora 
Campus. 



Este livro reune a experien- 
cia de inumeros profissio- 
nais, apresentando-a sob a 
forma de regras simples, do 
tipo "Faca/Nao Faca' ' , sem- 
pre enunciadas nas paginas 
da esquerda e acompanha- 
das, a direita, de explicates 
e exemplos que facilitam sua 
compreensao. Porem, mais 
do que isso, o texto se propoe 
a ajuda-Io a: solucionar os 
problemas dos usuarios, tor- 
nar seus programas faceis de 
usar, melhorar seu estilo na 
programacao e produzir pro- 
gramas bem documentados- 



Basic com Estilo — Prover- 
bios de Programacao, de 

Paul Nagin e Henry F. Led- 
gard, 144 paginas, Editora 
Campus. 

"Os programadores po- 
dem e devem escrever progra- 
mas que funcionem perfeita- 
mente logo de initio ." E pro- 
vavel que esta afirmacao pa- 
reca muito otimista aos pro- 
fissionais acostumados a Ion- 
gas horas de depuracao. No 
entanto, esta e, justamente, a 
proposta deste livro, destina- 
do a programadores de Basic 




que desejem produzir progra- 
mas legiveis, cuidadosamen- 
te construidos. 




Plane jamcnlo de Capacidade 
de Sistemas de Computacao, 

de Daniel A. Menasce e Vir- 
gilio A. F. Almeida, 83 pagi- 
nas, Editora Campus. 
A informatica esta pene- 



trando cada vez mais em di- 
versos setores de nossa socie- 
dade. Assim sendo, torna-se 
cada vez mais importante que 
as instalacoes de Processa- 
mento de Dados tenham a 
sua capacidade adequada- 
mente dimensionada de for- 
ma a poder processar as di- 
versas cargas de trabalho, a 
fim de nao incorrer em onus 
financeiros desnecessarios. 
Por isto, este livro apresenta 
a Analise Operacional — fer- 
ramenta que permite cons- 
truir modelos analiticos para 
previsao de desempenho de 
um sistema de computacao. 




Bancos de Dados: Funda- 
mentos, de C. J. Date, 214 
paginas, Editora Campus. 

Se voce nem sabe como 
funcionam os computadores, 
mas precisa usar ou conhecer 
um sistema de banco de da- 
dos, entao, este livro e para 
voce. Nao importa o tipo de 
equipamento que voce opera 
ou possui ou o grau de conhe- 
cimento sobre informatica: 
Banco de Dados vai mostrar- 
lhe o que os atuais sistemas 
podem fazer por voce e como 
melhor utiliza-los. O texto in- 
clui ainda uma visao geral dos 
bancos de dados, exemplos 
praticos e exercicios. 




Fortran para Micros, de 

Garry Marshall, 86 paginas, 
Editora Campus. 

Este livro e para os leitores 
que ja conhecem o Basic, pois 
adota uma abordagem infor- 
mal que, fornecendo as infor- 
ma?6es minimas necessarias, 
possibilita ao leitor tracar um 
paralelo entre as duas lingua- 
gens, tornando-o rapidamen- 
te capaz de escrever progra- 
mas tambem em Fortran. 
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GERACAO PROLOGICA 




O professor ideal 
para os iniciantes 
nomundoda ~ 
informatica. 



O CP 200 S e o parceiro 

ideal dos iniciantes. 

Com ele voce 

desenvolve as primeiras 
ligoesem computagao. 
Qualquer crianga pode utiliza 
lo para resolver tarefas 
escolares ou simplesmente 



curtir os mais divertidos jogos 
de video-game. 
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TECNOUDGIA ■■■ 
PROLDGICA SIS 



COMPUTADORES PESSOAIS 

RUA PTOLOMEU. 650-VILA SOCORRO-SAO PAULO-SP 
CEP 04 762 ■ FONE: (PBX) 52 1-1633 







CP500/Mf a grande solupao. 

Garantia da maior biblioteca 
de programas aplicativos. 



O CP 500/M 80 agora tambem e compati- 
vel com CP/M, o Sistema Operacional 
mais difundido no mundo. Isso significa 
que, somarido o tradicional DOS 500 
com o CP/M, voce passa a dispor da maior 
biblioteca de programas aplicativos do 
mercado. Trata-se da solucao inteligente 
e racional para o seu dia-a-dia, permitindo 
a voce tirar vantagem de programas como 



CalcStar*, dBase II*, WordStar* e muitos 
outros, que vao agilizar tanto a sua vida 
quanto a da sua empresa: Folha de 
Pagamento, Controle de Estoque, Contas a 
Pagar/Receber, Administracao Hospitalar, 
Calculo Estrutural, Sistema de Balancea- 
mento de Rac5es e outros programas especi- 
ficos para o seu ramo de atividade. 
O CP 500/M? possui saida paralela para 



impressora, e voce pode instalar facilmente 
uma porta RS232-C, que o coloca em 
contato com a Rede Internacional de 
Telematica, alem do Videotexto, Cirandao, 
Aruanda etc. Conheca no seu revendedor 
mais proximo o CP 500/M 80 . 

Um grande passo na informatica, com a 
qualidade CP e a Tecnologia Prologica. 



Caracteristicas 



Mem6ria RAM 
Memoria ROM 
Compatibilidade 
Video 



Sistema Operacional 



SQ-08 

64 Kbytes 
2 Kbytes 
CP/M* 
80 coiunas por 
24 linhas 



DOS 500 

48 Kbytes 
16 Kbytes 
TRS-DOS 
64 ou 32 coiunas 
por 16 linhas 



Video 12" f6sforo verde com controle de 

intensidade 

Teclado profissional capacitivo com numerico 

reduzido 

Interface para impressora paralela 

Interface serial padrao RS232-C (opcional) 

Freqiiencia de Operacao: 2 Mhz 

Unidade de som com controle de volume 

Opera com 1 ou 2 drives de face simples ou dupla 
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